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x. INTRODUCTION 


Accurate experimental determination or verification of 
aerodynamic force coefficients ((^and/or C L > requires 
accurate simultaneous measurements of the forces (or 
* cc *l* r *tions) and the dynamic pressure (q « l/2p U 2 ). 
Comparison with theoretical predictions requires independent 
knowledge of the density ( p) and velocity (U> to establish 
the proper values of the non-dimensional parameters such as 
Reynolds number (Re) and Mach number (M) . These parameters 
in principle require independent measurement of temperature 
and measurement or inference of viscosity. Under hypersonic 
conditions during the early phases of re-entry the Mach 
number becomes a secondary parameter while the relevant 
Reynolds number is based on viscosity within the gas layer 
near the vehicle and is only weakly dependent on free stream 
temperature. During the earliest part of re-entry, 
independent knowledge of density is necessary to establish 
the degree of rarefaction generally measured by the Knudsen 
number Kn « X/L where X is a relevant mean free path and L 
the characteristic physical dimension (either vehicle size 
for the overall flowfield or entrance dimensions for the 
loca * behavior at the instrument). 


The Shuttle Upper Atmosphere Mass Spectrometer (SUMS) 

Experiment* 1 ) is designed to provide independent measurement 
2 

° f q 1/2pU within the high altitude range. When combined 
with information of vehicle velocity, it will provide 
independent determination of upper atmosphere density and 


coupled to accelerometer data will give the aerodynamic -force 
coeff icients within a regime difficult to simulate on the 
ground. The experiment is primarily intended to provide 
in-formation between about BO Km and 140 Km where rarefaction 
effects on the -force coefficients are most important -for a 
vehicle of the size of the Space Shuttle. It is also a 
regime where information on the atmosphere is relatively 
sparse as it lies below the altitude traversed by satellites 
and above that regularly assessed by ground launched 
meterol ogi cal vehicles. The interpretation of the 
measurements, however, requires an adequate understanding of 
the flowfield around the Space Shuttle within the vicinity of 
the SUMS experiment in order to provide the proper data 
reduction procedure and an assessment of the accuracy of the 
resul ts. 

At sufficiently low altitudes (below about 80 Km for the 
Space Shuttle), conventional pitot probe measurements can 
provide the dynamic pressure with straightf orward data 
reduction and relatively minor corrections. At sufficiently 
high altitude (above about 150 Km), free molecular theory can 
be used to infer free stream conditions from surface 
measurements. The forces, however, are small and of little 
interest while the measurements require instruments of high 
sensi ti vi ty and are therefore difficult. In the intermediate 
range of altitudes where SUMS is designed to provide data, 
the typical molecular mean free path is of the same order as 
the characteristic vehicle dimensions. Figure 1 shows the 
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variation with altitude of the free stream Knudsen number <Kn 

00 

* based on the free stream mean free path X^ and the 

Shuttle diameter D at the location of the SUMS orifice just 
ahead of the wheel well. Note that K n#o - .01 at about 87 Km 
and Krt B ■ 10.0 at about 136 Km. Intermolecul ar collisions 
can, therefore, neither be neglected (free molecular theory) 
nor represented by the resultant transport properties 
(continuum theory) over the major portion of the SUMS 
measurement regime. The gas properties at the entrance to 
the instrument are, therefore, dependent on a flowfield that 
can only be determined on the basis of a "molecular" theory. 

In addition to the above "external flow problem", needed 
to establish properties near the surface of the vehicle, the 
entrance region of the instrument is typically either smaller 
or comparable to a local mean free path. In such 
circumstances, the connection between the gas properties at 
some distance into the internal plumbing and those at the 
vehicle surface, can be very sensitive to the velocity and 
angular distribution of the incoming molecules. This 
requires both a high degree of detail from the "external 
flow" and a local analysis that must assess the molecular 
behavior at the instrument entrance. We shall refer to this 
as the “entrance problem". Figure 1 also shows an 
approximate band of Knudsen numbers for the entrance region 
of the SUMS experiment. Kn s is based on the mean free path X 

s 

t! ~ ,e vei_, icle surface and the orifice diameter <d = .235 

o 

cm) with surface properties fitted between free molecular 
results at high altitude and continuum Newtonian values at 
low altitude. Kn c is a similar Knudsen number based on 
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conditions behind the "entrance" tube with A estimated on 

c 

( 5 } 

free molecular results using Hughes and deLeeuw theory' ' 
high altitude, with continuum constant pressure results 
applied at low altitude. Note that conditions within the 
entrance tube range from clearly free molecular behavior 
above about 110 Km to transitional behavior near 80 Km with 
fully continuum results only approached at the lowest 
altitude of interest. 

The subsequent connection between the properties 
immediately behind the entrance tube and the measurements at 
the mass spectrometer shall be referred to as the "internal 
problem". The analytical procedures for calculating pressure 
profiles through the internal plumbing are well established 
and will be further verified by instrument cal ibration . 

During the preliminary phase of NASA Grant NSG 1630 
(July 1979 to November 1979), the feasibility of examining 
the "external flow problem" for the Space Shuttle nose region 
within the relevant altitude range was established. A 
previously developed Direct Simulation Monte Carlo Computer 
Code^'^'*' was found to be suitable as the starting point 
for this geometry and altitude range. Preliminary results 
were obtained at 67, 95, 105, 115 Km altitudes. 

During the subsequent grant periods (November 1979 to 
September 19S2) improvements in the modelling of the geometry 
and the molecular interactions have been incorporated in the 
external flow computer code. A number of runs at altitudes 
of 67, 95, 105, and 115 Km have been made to obtain a range 
of the relevant parameters and to provide input information 



«t the SUMS entrance location. The "entrance problem" has 
been examined both by using published information (2 ' 6 ' 7 > 

*nd a previously developed Monte Carlo code for internal 
geometries (b . Because of the combination of entrance 
geometry (very long tube) and the range of local Knudsen 
number over the altitudes considered, a totally new 
"entrance" computer code had to developed. This code 
provides the connection between the flux information at the 
orifjce entrance obtained from the external code and the 
local gas properties behind the entrance tube where the gas 
is in equilibrium with the "cold" walls of the internal 
plumbing. This new code has only been exercised to a limited 
extent, but preliminary results relating the pressure within 
the tube behind the tile to the free stream dynamic pressure 
have been obtained. This information coupled with an 
appropriate calibration of the mass spectrometer provides the 
basis for a viable data reducion procedure of the SUMS 
experiment. 

Section II A contains a brief description of the 
operation of the EXTERNAL computer code (the detailed code 
is attached in Appendix A). Section 1IB describes the 
issues associated with geometric modelling of the shuttle 
nose region and the modelling of intermolecular collisions 
including rotational energy exchange and a preliminary 
analysis of the vibrational excitation and dissociation 
effects. Section lie discusses the selection of the trial 
runs And presents the major results. 

Section IIIA contains a brief describtion of both the 
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original version and the modified present code (INTERNAL) for 
the entrance problem (Appendix C contains the code listing) . 
Section IIIB contains a disucssion justifying the selection 
of geometric, collisional and surface modelling parameters 
used for the trial runs. Section IIIC presents the preliminary 
results and discusses the major effects. 

Section IV presents the conclusions that can be drawn 
from the present study, provides a preliminary estimate of the 
data reduction procedure and suggests future work. 
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II. EXTERNAL FLOWFIELD 


The physical properties of the gas monitored by the SUMS 
instrument are not those of the free stream but are altered 
both by the i ntermol ecul ar interactions in the external 
flowfield and by the combination of i ntermol ecul ar and 
surface interactions within the entrance orifice and tubing 
leading to the instrument. External flowfield effects 

can be summarized in terms of the relation between local 
••stagnation" pressure and the free stream dynamic pressure <q 
* 1/2 P U 2 ) at sufficiently low altitudes. Within the 
"transition" regime of interest (80-140 Km) the gas entering 
the orifice is neither in equilibrium with the surface nor 
~ simply related to the free stream. The only currently 

available technique for describing the flowfield within this 
regime and providing sufficiently detailed data on the 
physical state of the gas at the surface is the Direct 
Simulation Monte Carlo Code. 

A. DIRECT SIMULATION MONTE CARLO COMPUTER CODE 

Monte Carlo" is the technique of using a simulated 
situation and random numbers to generate solutions from which 
information for the real case is then deduced statistically. 
The Monte Carlo approach ranges from being a strictly 
mathematical technique for evaluating the complicated multi- 
dimensional Boltzmann collision integral to a complete 
simulation of a number of molecules, with randomness 


introduced only in the initial conditions. A modifi cation of 
this latter approach is the one used in the present 
development. It consists of simutaneously following a large 
number of particles which yields, to some degree, a “direct 
simulation" of the processes taking place. Because there are 
finite limits on computer storage space, a modification to 
the direct simulation technique was developed by 6. A. Bird 
<Ref. 5) wherein the real gas is simulated by several 
thousand "sample" particles populated into cells of the 
sample space considered. For collision calculations, all the 
P* rti cles in one cell are used as a representation of the 
local distribution function from which collision pairf are 
chosen at random, but in proportion to their collision f 
P r ®kability based on the real gas. This preceding discussion 
applies to a general program incorporating the direct 
simulation procedure. A specific computer program for the 
generalized three-dimensional program for a:: i symmetr i c bodies 
in a hypersonic multi— fluid flow is described below. 

The program (EXTERNAL) conducts numerical experiments 
with a model mul ti -component gas. The real gas is simulated 
by several thousand molecules which may be thought of as a 
representati ve sample of the many billions of molecules in 
the correspondi ng real gas. The positions and velocity 
components of the simulated molecules are stored in the 
computer and typical collisions are computed among them as a 
time parameter is advanced. Since the flow is at an angle of 
attack to the body, three position coordinates, three 
velocity components and appropriate internal energy levels 



must be stored -for each simulated molecule. 

The computation of collisions starts at zero time with 
the molecules moving along the flow axis at the required 
freestream Mach number. The body is inserted into this flow 
at the zero time and the desired steady flow is obtained as 
the large-time solution of the resulting unsteady flow. 

The free-stream flow vector lies in the x-y plane. The 
simulated region is bounded by the x-y plane as a plane of 
symmetry, an outer cylindrical boundary (the axis of the 
cylinder is the x axis), and two planes parallel to the y-z 
plane. These boundaries must be set sufficiently far from 
the body to eliminate interf erence. The simulated region is 
divided into a number of cells which are sufficiently small 
for the expected change in flow properties across the cells 
to be smal 1 . 

The first step is to generate the initial, or zero time, 
conf i gurat i on of molecules. The molecules are distributed 
over the simulated region and the velocity components 
assigned are appropriate to a gas in Maxwellian equilibrium 
and moving at the required Mach number. The body is then 
inserted into the flow and the molecules are allowed to move 
and collide among themselves. The move and collide processes 
are uncoupled by computing a number of collisions appropriate 
to a time interval At^ equivalent to a small fraction of the 
mean time between collisions, and then moving the molecules 
through distances appropriate to At and their instantaneous 
velocities. The distortion produced in the molecular paths 
by this approximation is small as long as At is small 


compared with the mean time between collisions, and smaller 
than the typical transit time of a molecule through a cell. 

Since the change in -flow properties over the width of 
one cell is assumed small, the molecules in a cell at any 
instant may be regarded as a sample of the molecules at the 
location of the cell. The relative location of the various 
molecules within the cell can then be disregarded. A pair of 
molecules is chosen at random from those within the cell 
under consideration and is retained or rejected in such a way 
that the probability of retention is proportional to the 
relative collision probability for the appropriate 
interaction law. When a pair is retained, a typical 
collision is computed between the two molecules and the new 
* velocity components and internal energies are stored in place 
of the old ones. 

In general, the relative number ratio of the species of 

molecules in the mul ti -component gas will differ from unity, 

requiring the computation of different types of collisions. 

There is, therefore, one time counter for each type of 

collision in each cell. For each collision, the correct time 

counter is advanced for the cell by an amount appropriate to 

the collision parameters. The probability of collision, and 

therefore the time advancement per collision, is made 

proportional to the number of molecules in the cell, and the 

relative velocity and cross-sections of the colliding 

molecules. Collisions are computed in each cell until all 

the time counters have advanced through at least a time At • 

in 

When this procedure has been carried out for all cells, the 


and the molecules 


overall experiment time is advanced by At 
are moved through appropriate distances. 

The set of molecules in each cell changes as the 
molecules are moved and appropriate conditions must be 
applied at the boundaries of the region begin simulated. 

Every boundary is treated as a source of molecules with 
velocity components representati ve of molecules moving in 
thermal equilibrium at the appropriate fraction of the free- 
stream Mach number. (The fractional Mach number is 
determined by the cosine of the angle between the local 
boundary normal and the flow direction.) Any molecule which 
moves outward across any boundary is regarded as being lost 
and is removed from the sample. The plane of symmetry (the x— 
* y plane> is regarded as a specularly reflecting surface. 
Interactions with the body are also computed. The body 
consists of a number of conic sections rotated about the axis 
of symmetry. Each section must be separately specified 
according to the coefficients of the defining equation, a 
procedure to be described later in the report. For the 
purpose of computing the momentum and energy transfers to the 
surface, each region of the body can be subdivided into 
smaller sections. Within these smaller sections, the 
following three parameters must be specified: wall 

temperature/gas temperature, energy accommodation coefficient 
for each species, and tangential (momentum) accommodation 
coefficient for each species. 

has settled down to a steady state, the 
number flux, momentum and energy transfers to the surface are 


accumulated and used to compute the aerodynamic data. The 
time required to establish steady -flow is usually assumed to 
be close to the time required -for the free-stream -flow to 
traverse several body lengths. The overall number -flux, 
drag, and heat transfer coef f icients are determined, along 
with their distribution along the surface. 

In addition, it is possible to cpnerate data on the body 
surface which can be used as input to the companion program, 
INTERNAL, described separately. (INTERNAL) computes the flow 
field regime inside an axially symmetric cavity, such as 
might be used for a spacecraf t-borne sensor. The input data 
needed for this computation includes the molecular 
distribution functions present at the orifice to the cavity, 
the orifice being on the surface of the spacecraft.) This data 
consists of velocity and internal energy samples in three 
coordinate directions for all species of the mixture. 

Flow field properties are also computed. Instantaneous 
values are sampled at appropriate time intervals and these 
are time-averaged for greater accuracy. Number densities, 
velocities and temperatures are printed for each cell. 

The numerical experiment takes place in a cylindrical 
block of space whose axis is coincident with the axis of 
revolution of the conic surfaces comprising the test body. 

This space is subdivided into cells in which the flow field 
properties of the experiment can be monitored. Cylindrical 
surfaces concentric with the axis partition the space into 
nested clindrical volumes, as shown: 
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Planes parallel to' the end-faces of the cylinders divide the 
cylinders into a stack of nested rings. 
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Finally, planes perpendicular to the preceding planes and 
passing through the a::is, called radial planes, divide up the 
rings in the azimuthal direction, producing cells which are 
wedge-shaped pieces of rings. The geometry is more easily 
visualized if one considers a trace of the cell configuration 
in a radial plane. A typical planar trace is shown: 




The a,<is shown is the axis of symmetry of the sample space 
(and of the test body). This axis is considered to be the x 
axis. When this direction must be specified in vector 

algebra computations, a unit vector i is assumed in the x 
- direction. 

Assume that the planar trace shown above is bounded by 
the x-axis as described and by the -y axis. This plane is at 
0° azimuth angle and is called the aero plane. It is the 
plane normally depicted when describing the sample space. 

A unit vector j points in the +y direction. The a 
direction points out of the paper, and in this direction is 
the unit vector E, which is given by 1 x j. 

The flow velocity is in the direction I cosa + j sina, 
where a is the defined angle of attack between O® and 90°. 
Since the flow is thus in the xy plane, there is symmetry in 
the a direction. That is, any condition in effect at is 
also in effect at -a. Thus aaimuth angles need be specified 
only from 0 0 to lB0 e where 0° is in the -y direction, 90° is 
in the +a direction, and 180° is in the +y direction. 
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Now the -fact is that the gas density in the vicinity of 
the stagnation point of the body can become many tens of 
times higher than the density far from the body. It is thus 
desirable to use small cells in this region while the cells 
are larger in the regions of relatively low density. This 
partitioning of cell sizes is accomplished in two ways. 

First, the rings can be divided azimuthally into two 
different sizes. This is done by specifying an angle, called 
THETAZ, and the number of wedge divisions both below and 
above this theta plane, called N WEDGE ^ and NWEDBE 2 . ("Below 
the theta plane" means azimuth angles between 0 0 and THETAZ, 
and "above the theta plane" means azimuth angles between 
THETAZ and 180 c .) 

Second, the cells below the theta plane can be 
subdivided in the axial and radial directions down to second 
and then third level cells. In the 0 ° radial plane 
representati on of the sample space, this would appear as 
large rectangles being sub-divided into small rectangles. 

In this way, the sample space geometry can be tailored 
to the conf iguration of the test body angle of attack to the 
flow. The following examples are presented to clarify the 
above statement. Assume for all cases that the test body in 
question is a short cylinder. As explained in the section 
TEST BODY, the cylinder cannot have flat end faces, so the 
ends are cones with apex angles, of about 175®. 

For 0 ° angle of attack, the flow impinges 
directly on the left face of the cylinder. 


It is thus desirable to have, if possible, 
constant azimuthal angles since there is no 
angles since there is no azimuthal assymetry. 
One possible configuration is therefore: THETAZ 
ISO ° NWEDGE ^ * 6, NWEDGE j * 0 (producing 30° 
wedges), and the axial and radial directions 
can be subdivided any convenient way, producing 
a zero radial plane that looks like: 
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In this type of geometry, all radial planes 
are the same as the zero plane. 


For 90 "angle o-f attack, the flow impinges on 



the curved cylindrical surface of the cylinder 
at the bottom. It is thus necessary to have 
small azimuthal wedges on the lower portion of 
the cylinder at and near the stagnation point, 
•'bile larger wedges will suffice on the upper 
portions of the body (in the wake of the flow). 

For instance, an acceptable set of parameters 
is: THETA 2 « 60‘, NWEDSE 1 « 3, NWEDSE 2 - 3 
(producing 20° and 40° wedges) , and again the 
axial and radial directions can be subdivided 
in any convenient way. Any radial plane up to 
60 ° looks like the radial plane in example 
(a), with the body and smaller cells centered 
about a-a, while any radial plane between 60 ® 
and 180 ° looks like: 
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c> For an angle of attack between 0° and 90°, 

the configuration looks generally like that of 
example <b>). In this case, however, the theta 
plane generally should be at an azimuth angle 
which is relatively low (near 60 # ) for a high 
angle of attack (45® - 90®) and relatively high 
(near 120°) for a low angle of attack. 


Because the test body is located on the axis of the 
cylindrical sample space, for each particle that interacts 
directly with the body, many more do not. In the interest of 
minimizing the program running time necessary to permit a 
statistically sufficient number of particles to strike the 
body, the computation makes use of zonal weighting factors. 
That is to say, each particle in the sample-space in reality 
represents one or more particles, the actual number depending 
upon the weighting factor of the zone in which the particle 
currently exists. 

Up to five cylindrical boundaries are selected across 
which the zonal weighting factors change. These boundaries 



•re specified in terms of the number of first level cells 
between the axis and the boundary. The change in the zonal 
weighting factor across each boundary can be given bys 


LD n + l +LD n *<U2,...5 * 

l*r * — - ■■ — ■■ ■ i 

n n-1 

U LF . 
j-0 3 


where the LD values are the number of first 
level cells between the axis and the cylindrical 
boundaries; and LFq= 1, LD g »LD 5 =LD K =NH were K 2 ,;: i ast * 


This equation is the result of having the zonal 
weighting factors defined in such a way that they are equal 
to the ratio of sample space volume in the zone above the 
weighting-factor boundary to the sample space volume in the 
zone below the weighting factor boundaries. The importance 
of the region near the axis can.be emphasized by choosing LF 
values larger than those given above. 

The sample space is populated with a distribution of gas 
molecules. Each molecule is assigned a velocity, a rotational 
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energy and a position, such that the sample space is 

uni -for ml y (albeit in a random manner) -filled with a gas in 

thermal equilibrium and flowing at the required Mach number. 

* Each molecule is assigned a number corresponding to its zonal 

weighting factor. The molecule thus represents in actuality 
V * number of molecules (including itself) equal to the zonal 

weighting factor. While the molecule moves in such a way as 
to stay within the given zone, its weighting factor does not 
change. If it crosses a weighting factor boundary while 
moving in toward the axis, a number of molecules is added to 
the distribution. The number of molecules added is equal to: 

old weighting factor - 
new weighting factor “ 1 


For instance, assume that above a boundary, the zonal 
weighting factor is 6, and below the boundary it is 3. Hence 
or molecule must be added to the distribution 
when the molecule crosses the boundary. This is clearer if 
one considers that above the boundary, the molecule 
represents a total of 6 molecules. When the molecule drops 
below the boundary, it can only represent 3 molecules, so 
another molecule must be added to the distribution to 
represent the other 3 molecules. 

The added molecule (s) is (are) assigned the same 
position and velocity components as the original molecule. 
While this does not approximate true kinetic theory at first, 
in practice the positions and velocities are soon randomized 
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by collision processes. 


On the other hand, if a molecule crosses a weighting 
•factor boundary while moving away -from the axis of the sample 
space, there is a probability that it must be dropped from 
the molecular distribution. The probability is given by 

1 _ old weighting factor 
new weighting factor 

v 

The random number generator is used to generate a 
histogram of disappearing molecules to match the actual 
probability of di sappearance. The whole idea behind using 
weighting factors is to increase test body - flow field 
interaction in a given running time. Thus, when body surface 
quantities are accumulated (like flux, energy, momentum, 
heat), they are accumulated in terms of the weighted number 
of molecules striking the body. This is particularly 
important if the body exists in two or more weighting cones, 
so that surface quantities in different zones can be 
correctly compared. 

The program is set up to handle a test body consisting 
of a sequence of connected conic sections rotated about a 
common axis of symmetry. Some typical surfaces which can be 
considered without modification are sections of spheres, 
cones, cylinders, ellipsoids, hyperboloids, and paraboloids. 

A disc perpendi cul ar to the symmetry axis cannot be handled 
without modification, since it represents a multi-valued 
function in r. Cones with very large apex angles (~ 180 e ) are 



used in place of discs. The procedure used to specify body 
surfaces is to generate a form of the standard equation of 
the surface in question, substitute into this equation the 
actual values of the constants, and reduce the standard form 
to the following type of equation: 

+ Br^ + Cx + D b o 

C, and D are numerical values 

These coefficients are used as input data to the program. 

The program requires additional parameters for each conic 
surface. Each surface can be axially divided into several 
segments for the purpose of accumulating the body surface 
‘ P arame ters like flux, heat transfer, etc. The x-coordi nate 
on the right side of the segment is required as data. (The 
segments are divided azimuthally by the same radial planes 
that partition the sample-space.) In addition, the 
temperature, energy accommodation coefficients and tangential 
accommodation coefficients for each species are required for 
each segment. The temperature of a surface is normalised by 
the free— stream temperature. 

"^ e tangential accommodation coefficient specifies the 
fractional part of incoming tangential momentum that is lost 
to the surface. For the reflection model used in this 
program, this also represents the fractional part of the 
molecules colliding with the body surface whose collisions 
are diffuse. The remainder collide specularly. 

The energy accommodation coefficient specifies the ratio 
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of the net molecular energy flux absorbed by the body to that 
energy which would be absorbed if all re-emission were 
appropriate to equilibrium at the surface temperature of the 
body. This coefficient together with the tangential 
accommodation coefficient and the surface temperature 
determines the effective temperature of the diffuse component 
of the re-emitted molecules in the reflection model used in 
this program. 

It is also possible to collect velocity samples of the 
colliding molecules on a restricted number of surface 
segments to generate distributions for the internal flow 
program. For this prupose, molecules that collide with the 
body surface are considered in two classes. The class called 
"UNCOLLIDED" consists of "f ree-stream" molecules.. That is, 
these molecules have not previously collided with the body 
surface or with any other molecules other than “f ree-stream" 
molecules. The other class, called “COLLIDED", consists of 
molecules which have previously collided with either the body 
surface or with other "COLLIDED" molecules. 

Appendix A contains the full listing of the computer 
code in Fortran IV. The main program consists of dimensioning 
statements coupled to a fiarly detailed description of the 
input cards (using the NAMELIST input) . The main operating 
program is called RUN which in turn calls the appropriate 
subroutines. Figure 2 shows a schematic of the flow chart for 
the operation of the Program EXTERNAL. 


B. Modelling of the SUMS Problem 


1. Geometric Model ling 

The computer code described above requires an 
axisymetric geometry of the body, although the flow vector 
can be at an arbitrary direction. The Space Shuttle nose 
geometry in the vicinity of the SUMS orifice has to be 
modelled by an equivalent body of revolution. A paraboloid 
0<f revolution around as axis inclined at about 8 * with 
respect to the shuttle axis models the lower surface cross 
sections of the body both in the symmetry plane and in the 
transverse direction reasonably well. Figure 3 shows a 
sketch of the actual and modelled Space Shuttle nose 
geometry. This model will be called the parabola model, and 
the flow direction of 32 “with respect to the axis will be 
used to represent the 40® angle of attack of the Space 
Shuttle. 

Both for the purpose of benchmarking the test runs 
against continuum results and to achieve better resolution an 
alternative axisymmetric flow model was examined. This model 
consists of a hyperbola rotated about the flow velocity 
vector passing through the stagnation point. Figure 4 shows 
a typical cell geometry for this model. This is also the 
model used by Professor Clark Lewis for his continuum 
calculations. As will be seen from the results in the next 
section the latter (axisymmetric) model is questionable as a 
representati on of the flow in the stagnation region of the 



Space Shuttle, at least at higher altitudes. 


2. Modelling of Cross Sections 

In order to avoid uncertainties associated with the 
choice of hard sphere cross-section to best model the 
"typical" collision, an energy d epende nt inverse power law 
cross-section collision code has been incorporated in the 
program. The power law exponent and reference cross-section 
is chosen to provide the best fit to the^v iscosi ty 
temperature dependence over the range between the wall and 
stagnation conditions which represents the energy range of 
the important collisions. Figure 5 shows that viscosity can 
be matched to within a few percent over the relevant range 
with a single choice of exponent and reference conditions 

Using the exponent of N=.552 and a reference temperature 
of 1000°K four axisymmetric cases of a hyperbola at 0° have 
been run to simulate 87KM, 95KM, 105KM and 115KM altitudes. 

Since in these cases rotational energy was no^t included these 
represent a ficticious monatomic gas of y=5/3. Figure 6 shows 
"smoothed" temperature profiles normalized to the free stream 
temperature. Note that at the two lower altitudes a relatively 
"flat" Rankine Hugoniot (R.H.) region exists, while at 105KM 
r.H. conditions are barely reached and at 115KM the temperature 
peaks at about 70% of R.H. temperature. The shock layer in all 
cases is, however, very much thicker than the inviscid result 
based on nose radius R^. Note, however, that the hyperbola is 
very blunt and it is not clear that the nose radius is the appro 
priate dimension or that this models properly the flow about the 
Space Shuttle Nose. 
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S. Rotational Energy Exchange 


On the basis of previous experience in modelling 

rotational energy exchange in Reference 4 the model of Larsen 
/ q \ 

and Borgnakke ' ' was chosen as appropriate for the blunt 
geometry under investigation. The External Flow Program was 
therefore re-coded to include an arbitrary number of internal 
energy modes but with a single relaxation time related to the 
parameter <f> which ranges from $“0 representing no exchange to 
*1 simulating maximum available exchange at each collision. 

An indication of the effect at 115KM is shown in Figure 7 and 
B for the most rapid energy exchange ($=1). Note that, as 

expected, the peak temperature is lower for the Y*1.4 case 
because some of the energy goes into rotation. Also note 
that significant non-euqi 1 ibrium exists between translation 
and rotation even at this maximum energy exchange rate 
correspondi ng to 4**1. The effect on surface properties shown 
in Figure B is virtually non-existent for the shear, but 
noticeable on the heat flux and pressure. 
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4. Preliminary Attempts at Comparison mith Continuum 

Results 

Some preliminary comparisons of both the monatomic (y 
*1.667) and diatomic (y*1.4) runs for the axisymmetric 
hyperbola were made with continuum results provided by F'rof. 
C.H. Lewis based on continuum theory # Among the 

surface properties only the pressure distribution agreed 

well. Since this is the property least sensitive 
to detailed flow field behavior the agreement is not a very 
sensitive test. A typical comparison is shown on Figure 8. 

A comparison of heat flux is not shown on this figure as it 
is not the same scale at this high altitude. The continuum 
result of Prof. Lewis gives the stagnation point heat 
transfer coefficient Cj^*Q/l/2pL) = 2.B which is physically 
unrealistic. At 105KM the continuum heat transfer 
coefficient C^ is below one but still appreciably above the 
Monte Carlo results. At 95KM the Monte Carlo results give 
hea t transfer that is almost twice as large as Prof. Lewis’s 
result for ^*1.4. . 
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The most significant discrepancy between the continuum 
and Monte Carlo results arises in the shock layer thickness. 
While the definition is somewhat arbitrary,, comparison of 
the subsonic region in the vicinity of the stagnation point 
does give a good indication of the extent of influence of the 
"downstream" portions of the body. Figure 9 shows the Monte 
Carlo results for the M=1 line at 115KM together with the 
shock line from C.H. Lewis. This discrepancy led to a whole 
re-examination of the modelling of the nose geometry. 

5. ^e-examination of Geometric Modelling 

Since the subsonic region appears to extend to the 
"shoulder" wherever the hyperbola is terminated as shown in 
Figure 9, the applicability of the hyperbola model becomes 
suspect, at least for the Monte Carlo calculation where 
upstream influence cannot be eliminated. In order to further 
assess the effect of the geometric model on the results a 
comparison of the hyperbola at 0 0 to the parbola at 32 0 are 
presented in Figures 10 and 11. It can be seen from Figure 

10 that the subsonic layer in the vicinity of the SUMS 
orifice is significantly different in the two cases. Figure 

11 shows that while the pressure is not dramatically affected 
by the model the heat flux and shear are significantly 
altered. On the basis of these results it was concluded that 
while the runs for the hyperbola may indicate trends they are 
neither representat i ve of the SUMS region on the Space 
Shuttle nor good candidates for benchmarking with the 
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continuum results. All subsequent runs were therefore made 
using the geometric model of a parabola at 32° angle of 
attack. 


6. Inelastic vibrational Excitation and Dissociations 

Because of the high energies of collision between free- 
stream and reflected molecules, inelastic collisions 
(certainly vibration and dissociation! are in principle 
possible. At the highest altitude the number of such 
collisions is expected to be insignificant because the cross - 
sections are low enough so that a typical molecule will reach 
the body with a negligible probability of a previous 
. vibrati onal 1 y exciting or dissociating collision. At the 
lower altitudes B7 to 95Km the number of collisions suffered 
by a typical molecule before reaching the body surface is 
measured in the tens or hundreds and therfore inelastic cross- 
sections that are only a few hundredths of the elastic and 
rotational ones may produce significant effects. The detail 
needed to properly model these collisions in the honte Carlo 
Programs far exceeds the available experimental information, 
which primarily gives overall rate constants. An 
investigation of the best combination of analytical and 
empirical information was initiated early within the grant 
P®**1®P* A theoretical attempt to couple low energy 
vibrational excitation experimental information to the highly 
non-equilibrium high energy collisions through theoretical 
work was initiated. Appendix B contains a Master's thesis 


presenting the formalism and giving the initial results of a 
theoretical formalism. Based on those results, coupled to 
some limited experimental data, a method for determining the 
probabilities of specific outcomes in individual collisions 
in the Monte Carlo Programs can be developed. The increase in 
computing times, however, may make the feasability of using 
such a code, for anything but benchmarking, prohititive. 


i 
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C. MAJOR RESULTS FOR EXTERNAL FLOW 


The primary effort during the grant period up to 
February 1981 was spent in developing the code for external 
flow and establishing the appropriate geometry to model the 
region of the Space Shuttle in the vicinity of the SUMS 
experiment. The major results to that date are presented in 
the renewal proposal for the period February 1, 1981 to July 
30, 1982 which also served as a progress report on the 
previous grant period. We will only summarize those 

results here and update them on the basis of additional 
external flow computations. 

A representati on of the shuttle nose geometry as a 
paraboloid of revolution around an axis 8® from the actual 
shuttle axis (Figure 3) was found to adequately model the 
windward side of the shuttle in the vicinity of the SUMS 
orifice. Computatons for both this model at an effective 
angle of attack of 32® and an alternative axisymmetric flow 
about hyperboloid model centered on an axis through the 
nominal stagnation point, demonstrated that the paraboloid 
model at angle of attack is necessary to adequately model 
conditions near the SUMS orifice. The typical body and 
computation cell geometry is shown in Figure 12. 

^ resonable indication of the flowfield can be obtained 
by examining density contours or. Mach number contours about 
the body. Figure 13 shows the sonic lines and the M = 5 
lines indicating approximately the outer extent of the 
"shock" layer at 95 Km and 115 Km, within the plane formed by 
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the velocity vector end the axis of the modelled paraboloid. 
Note the greater "shock" layer thickness at the higher 
altitude. Also note the -fact that even at 95 Km, the shock 
layer is a large -fraction of the local body dimension such as 
nose radius. The "shock" thickness is a major portion of the 
entire “shock layer" casting doubt on any calculation 
incorporating a thin "shock" assumption. Figure 14 shows 
some density contours on the "windward" side of the body at 
95 Km altitude as well as the sonic line. Note the rather 
constant density rise towards the body with no discernible 
separation between "shock" and "boundary layer." Also shown 
are estimates of the stagnation streamline and another 
*^ ream ^* ne along which the velocity only goes slightly 
- subsonic. Note the rather gradual turning along the latter 
streamline and the rather diffuse nature of the shock layer 
even at this altitude where the nominal free stream Knudsen 
number is 0.04. In order to give a better picture of the 
three-dimensional aspect of the flowfield, a sketch of one- 
half of the paraboloid and some contour plots of M = 1. and M 
= 5. lines are shown on Figure 15. 

Information in Figures 13 through 15 gives some 

indication of the nature of the flowfield in the vicinity of 

the SUMS orifice. The ultimate objective, however, is to 

establish properties at the vehicle surface. Figure 16 shows 

the variation of two surface fluxes (normal pressure and heat 

flux) at 95 Km along the four cross-planes shown in Figure 

15. The normal pressure p normalized by l/2pU^ (C = p /l/2n 
2 S P S p 

U ) is shown on the right side of the figure while a heat 
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transfer coefficient <C « D/l/2pU 3 > is shown on the left. 

Figure 17 shows the variation versus angle in the cross-plane 

nearest the one containing the SUMS orifice, and compares the 

results to some theoretical and semi— empirical predictions. 

The pressure coefficient, as expected, lies approximatel y 

between the free molecular (C (F.M. )) value and the modified New- 

P 

tonian (C^tNEWT) value, up to about 90 . (Note that at 90° 
around the axis the local angle ( $) between the velocity 
vector and the surface normal is approximately 64° at this 
cross-plane.) The heat transfer coefficient lies 
substantially below the free molecular value. It is also 
compared to a semi -empirical extrapolation of experimental 
results of stagnation heat transfer on hemispheres presented 
in reference 13. Direct comparison is clearly dubious due 
to the substantially different body geoemtry and the 
implicit assumption of totally local behavior contained in 
the cosS variation with local angle of the surface to the 
velocity vector , Some additional degree of uncertainty is 
contained in the choice of "body sice" that is used to 

evaluate the correlation parameter K 3 . 

R 

The ultimate objective of the external flow 
calculations is to provide information on the properties of 
the gas entering the SUMS orifice. It is the potential non- 
equilibrium nature of the entering distributin of molecules 
that is responsible for the difference between the surface 
"pressure" and the gas pressure within the internal plumbing 
around the mass spectrometer . The non-equilibrium aspect is 
most commonly represented by a temperature jump and a 
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velocity slip within the continuum formalism. Under the 
highly rarefied conditions at the upper end of the altitude 
range of interest, even that description may be inadequate 
because of the highly non-Boltzmann distribution of the 
molecules arriving at the surface. Figure IB shows the 
distribution function of the flux of molecules arriving at 
the SUMS orifice at 95 Km and 115 Km obtained from the 
external program. The flux distribution is plotted both 
versus molecular velocities normal to the local surface and 
tangential within the plane formed by the free stream 
velocity vector and the local normal. Note that at 95 Km one 
could fit the distribtion by a Maxwedllian with some 
temperature different than the body temperature and a slip 
_ velocity which is comparable to the free stream mean 
molecular speed. At 115 Km the distribtion is clearly 
composed of two components, the free stream molecules 
arriving unperturbed at the surface, and the collided 
molecules having a broader distribution possibly 
representable by another Maxwellian. Clearly this potential 
bimodal character of the incoming molecules must be 

recognized in the evaluation of the "entrance" problem at the 
SUMS entrance. 
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Ill 


Entrance Problem 


As a companion to the initial version of the external 

/ g \ 

code (EXT) an internal code <INT> was developed . The 
objective of this code was to determine local properties and 

V 

surface f luxes in a cavity connected by a tuc to the 
exterior sur-face. The input molecular distribution is 

obtained -from the surface flux information provided by the g 

external code. While the code is in principle general to 

allow a wide variety of geometric configurations it is 

optimized for a short tube-large cavity geometry. Early 

attempts to apply this code directly to the SUMS inlet 

geometry resulted in very long running times with little 

assurance that a steady state solution had been achieved. A 

total recoding of the entrance problem was therefore 

implemented resulting in a code (INTERNAL) that allows 

greater flexibility in handling the long tube geometry of 

BUMS as well as incorporates all of the changes in 

i ntermol ecul ar collisions, numbers of species and rotational 

eneray ex chan os developed for the code EXTERNAL. 

A. Entrance Computer Code INTERNAL 

The purpose of the program described in this section is 
to determine the fluid field inside a cavity which consists 
of a connected sequence of conic sections rotated about an 

\ 

axis of symmetry. The cavity is considered in two parts: a 

main cavity on whose interior surface the sensor will be 
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located, and an inlet tube whose ori-fice is presumed to be at 
the enter: or surface of a spacecraft. A detailed code 
listing is given in Appendix C. 

The input data for this program includes a molecular 
distribution function which is obtained from an external-flow 
run. Somt r r the otiier data refers to input parameters of 
the external -flow run. Thus it is seen that the pair of 
programs can be run as a set, computing the conditions inside 
a cavity which exist for a given set of conditions in the 
undisturbed free— stream flow. The programs have not yet been 
directly coupled, although they are written with this intent. 

The program was constructed by turning an external -f 1 ow 
program inside out. In doing this, the basic molecule/body 
collision mechanism is preserved with only minor changes, 
while the molecule/molecule collision mechanism are not 
changed in any way. 

A general description of the way in which the internal- 
flow program conducts the experiment is unnecessary since the 
description in the preceding section generally applies here. 
Any important differences will be described as they occur. 

The numerical experiment takes place in a cylindrical 
block of space quite similar to that used in external flow. 
However, the inlet region must be cylindrical in shape while 
the cavity region can be defined by conic sections. 

There is no subdivision of 1st level cells into smaller- 
sized cells. Also, the number of azimuthal wedges is 
specified for a full 360° (since there is no plane of 
symmetry determined by an input flow direction) and is the 
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same -for both regions. No weighting -factors are used as the 
desired surface -fluxes on the walls generally occur near the 
outer edges of the sample space. 

The orientation of the sample space is determined by the 
geometry of the particular body surface segment in external 
flow which is used as the orifice area of internal flow. The 
body surface normal of external flow becomes the x— axis (axis 
of symmetry) of internal flow; the direction given by the 
cross product of the x-axis of external flow and the body 
surface normal becomes the 2 — axis of internal flow; and the 
direction given by the cross product of the above cross 
product and the body surface normal becomes the y-axis. 

The zero radial plane is the positive x-y plane, and 
azimuth angles range from 0 e to 360° , with the psoitive z- 

ax i s at 90° . 

The sample space is initially populated with gas 
molecules in a manner similar to that used in external flow. 
In this program, however, the gas molecules are initially in 
thermal with the walls locally. The selection of the density 
profile initially in the tube indeed poses a problem and is 
very critical in minimizing running time. The code therefore 
allows an arbitrary initial distribution specified by the 
user. The choices and procedures for selecting them are 
described in the next section. The key objective is to 
provide a distribution that is consistent with the input flux 
and will not have to be sever ly altered in magnitude to 
arrive at the steady state. 



The molecular input distributions are generated -from 

data produced by an ex ternal ~ f 1 ow run. This data consists o f 

velocity samples of molecules impinging on the external body 

surface segment which is considered to be the orifice area of 

the inlet region. The form of the velocity samples is a 

series of horizontal S—shaped curves, one for each molecule 

type, in each of three directions, for both UNCOLLIDED (free- 

stream) and COLLIDED molecules. Each s— curve gives the 

fraction of molecules (impinging on the body surface segment) 

with a velocity <_ the given velocity. A typical curve for 

UNCOLLIDED molecules is given Lv is the velocity 

M 

correspondi ng to the center velocity of the distribution as 
computed in the external flow program!!: 


loA 


f 


«• 
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The information from these curves is used directly to 
generate the molecular distribution of the molecules entering 
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the inlet. 


The population (pressure) inside the cavity region is 
selected initially as an input. The computer simulation 
proceeds until a steady pro-file inside the tube entrance 
region is generated. Since this does not necessarily require 
zero net -flux, a series o-f runs with different cavity 
pressures is generated and a cross plot o-f -flux versus 
pressure is the output -for a single external -flow input 
condition. The equilibrium solution i-f desired can be 
obtained -from the zero -Flux point. 

B. Scope of "Entrance Problem" -for SUMS experiment 

Within the -free molecular regime the "entrance problem" 

has been examined by Hughes and deLeeuw^) . in order to 

indicate the potential magnitude of the problem, Figure 20 

shows the variation o-f both the surface pressure (p ) and the 

s 

chamber pressure (p ) versus angle o-f attack under free 

c 

molecular conditions at infinite speed ratio and a very long 

tube (conditions approached at high altitude during Space 

Shuttle re-entry) . For the SUMS location, the local angle of 

attack 6 is approx i matel y 2S 0 giving a possible difference o-f 

a factor o-f 10 between the surface pressure (p ) and the 

s 

internal chamber (p ) that directly affects the mass 

c 

spectrometer reading. While this theoretical result is 
expected to be accurate at 140 Km and above, at lower 
altitudes the local flux distribution will have both a 
directed and a rather diffuse component (see Figure IB), and 
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also the effect of internal collisions within the tube will 
begin to play a role (see Figure 1). 

Because the tube length to diameter ratio is very large 
(^7) the time constant and therefore the computing time to 
reach equilibrium is very long. For this reason no attempt 
is made to simulate the problem all the way to the condition 
where the chamber pressure behind the tube is at the correct 
value to nearly balance the net flux. Instead a series of 
rL,r,s with different assumed "cavity" pressures are performed 
and the zero net flux (or a given small value for the dynamic 
condition) can be selected to interpolate the correct 
"cavity" pressure. This procedure if it proves generally 
successful can of course be automated within the code. 

C. Preliminary Results of INTERNAL Code 

Ft eliminary results for the SUNS entrance tube geometry 
are presented as a couple points on Figure 21 giving to the 
ratio P C /, P S versus altitude. 

Also shown are some theoretical curves for full 

continuum (Continuum), for continuum external flow but free 

molecular flow through the tube (No slip, Kn -► oo) , and for 

s 

fully free molecular flow (Free Molecule). In addition, some 
points using a best fit Maxwellian to the external flow flux 
free molecular internal flow from reference 2, are shown 
at 95 Km and 115 Km. These results are preliminary, but they 
do indicate the magnitude of the correction and the fact that 
no simple use of the currently available results can cover 
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the entire range o-f altitudes of interest. 
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IV. DISCUSSION 


I-f we couple i nf ormati on -from INTERNAL (Figure 21) to 

the results o-f the external -flow computations (summarized as 

2 

a plot of p /l/2pU versus altitude in Figure 22), we can 

S 

produce a preliminary estimate of the data reduction curve 

that could be coupled to the calibration o-f the mass 

spectrometer to deduce the q = l/2 p U 2 during Space Shuttle re- 

entry. Figure 23 is a cross-plot o-f the q/p versus p 

c c 

obtained -from Figures 21 and 22 with the 87 and 105 Km 
results only estimated on the basis o-f interpolation o-f 
Figure 21. The establishment of such a data reduction curve 
-for the nominal re-entry conditions, together with associated 
error bars as well sensitivities to wall temperature and 
angle of attack is necessary for the proper i nterpretat i on of 
data to be obtained by the SUMS instrument. 

The data measured by the mass spectrometer in the SUMS 
experiment essentially provides collector currents of charged 
species of different masses. Calibration of the instrument 
can relate these to the overal 1 pressure and composition at 
the entrance to the instrument being calibrated. Since the 
actual environment of the flux of molecules to be encountered 
under flight conditions cannot be simulated the calibration 
is performed with the incident flux essentially in 
equilibrium with the instrument outer walls (room temperature 
and no flow). The data reduction procedure must therefore 
relate the effective environment in the ground test 
simulation to the desired dynamic pressure q under the 
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•flowing non-equilibrium condition and through the calibration 
to the instrument measurements. 

As discussed above, capability now exists for 
calculating the surface -flux distribution of molecules 
entering an opening at the BUMS location. The computational 
procedures for connecting that information to the pressure 
immediately behind the entrance tube has also been developed, 
although not fully exercised over the entire range of 
parameters applicable to the BUMS experiment. That pressure, 
in turn, can be directly related to the ground test 
environment used to produce the calibration curves for the 
mass spectrometer . 

The primary objective of future work must be to provide a 
data, reduction procedure that relates the spectrometer 

2 

reading to the free stream dynamic pressure (q = 1/2 pU ). 

With currently available procedures a relation between the 

pressure p c and q such as the preliminary one shown on Figure 

23 can be obtained using the beet available information on 

the flight parameters such as velocity, angle of attack, tile 

temp er at ur e , sur f sc e conditions, me 1 ecu 1 ar collision 

parameters, etc. This relation must then be combined with 

the calibration curve where the instrument readings are 

related either to p directly, or to a calibration pressure 

c 

which can be related to pc by conventional means. A single 
plot of q versus total measured collector current can thus be 
obtained from the combination of these results. 

The relation between the dynamic pressure q and the 
calibration pressure depends on many parameters of the 
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problem. Some of these, such as flight velocity, angle of 
attack, and tile surface temperature are expected to vary 
only slightly from their nominal values. Since the actual 
measured values of these quantities will be available on each 
individual flight, corrections to the data reduction relation 
should be evaluated in the form of sensitivity coefficients 
for small changes from the nominal. Studies to determine the 
effects of these parameters are necessary to establish the 
significant sensitivity coefficients that must be 
incorporated into the data reduction scheme. 

The parameters such as surface accommodation, surface 
recombination, and free stream composition can also affect 
the results. In addition, modeling si mi pi i f i cat i ons of both 
the geometry of the problem and the molecular collision 
phenomena can alter the quantitative value of the relation 
between q and p ^ . Because of the u.navai 1 ah i 1 i ty of any in- 
flight measurements that could lead to an evaluation of these 
parameters, bounds on the uncertainties they produce should 
be studied. Sensitivity of the data reduction relation to 
the most significant of these can then produce bounds on 
uncertainties on the dynamic pressure q, due to reasonable 
variations. The final goal of future work is an algorithm 
for the evaluation of the dynamic pressure q, from the 
calibration pressure p^ , together with error bounds, due to 
the uncertainties associated with the external flow and the 
entrance probl ems. 
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FIGURE 8, SURFACE FLUXES (EFFECT OF Y 



Normalized Distance from Stcrnation Point 
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SONIC LINES (EFFECT OF GEOMETRIC MODEL) 



FIGURE 11. SURFACE FLUXES (EFFECT OF GEOMETRIC MODEL) 
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FIGURE 13. MACH NUMBER CONTOURS IN SYMMETRY PLANE AT 95 Km 
and 115 Km 
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• DENSITY CONTOURS ON WINDWARD SIDE AT 95 Km ALTITUDE 
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FIGURE 16. SURFACE PROPERTIES; PRESSURE COEFFICIENT C « p /1/2 dU^ AND 

3 P 6 

HEAT TRANSFER COEFFICIENT C H = Q/l/2pU IN FOUR CROSS- 
PLANES AT 95 Km ALTITUDE 
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FUNCTION AT SUMS INLET 





FIGURE 19. SUMS INLET GEOMETRY 
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FIGURE 20. FREE MOLECULAR PROBE RESPONSE (S - ®, d/L-0) 
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FIGURE 22. SURFACE PRESSURE AT SUMS INLET 
VERSUS ALTITUDE 
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FIGURE 23. PRELIMINARY ESTIMATE OF DATA REDUCTION 
RELATION q/p VERSUS p 
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•/ JOB GKB 0367425. GKBSPACE N=EXTCOMP R£G=500 T=.8 P*150 C=0 
'/♦FORMAT PR,DDNAHE=STSNSG,DEST=VM370 
'/ EXEC FORTXCL, PARS. FORT =, XREF' 

'/FORT. SIS IN DD * 

n^XN PBOGRAH FOB HORTE CARLO 3-D EXTERNAL FLOB CALCULATIONS 
OBJECTITE OF THIS HAIN PROGRAH IS TO SET THE DIMENSIONS 
BAIN RUNNING PROGRAB IS *** BUN *** 


FOLLOWING TWO CARDS HAVE TO BE ELIHINATED FOR HON IBB MACHINES 

--— — -—»*#************ 


INTEGEB*2 LB, NBH, NBN,NB, NBF, NBT,NBS, NUBCEL 
INTEGER* 2 L3,LPF,LCOL,LKW 

$£$$$££$$ * * ** ****** 4c * ** *********** ***************** ******** **** ******** 


THE NEXT CARD IS ASSOCIATED WITH PRINCETON RANDOM NUMBER ^GENERATOR 
COHBOH/RANCOH/RB AN (4) 

*********************************************************************** 

THE FOLLOWING DIMENSION STATEMENTS SET THE MAJOR ARRAY DIMENSIONS 
AND MUST BE CONSISTENT WITH THE FOLLOWING DATA CARD 

HSP* NUMBER OF SPECIES - EXAMPLE BELOW RSP*1 
NBB S NUMBER OF BOXES WITHOUT COUNTING SUBDIVISIONS OB THOSE 
OCCUPIED BY THE BODT - EXAMPLE BELOW NHB=2600 
NHC=KUMBEB OF FINAL CELLS - EXAMPLE BH-OB NMC=1500 
NHP=HAI NUMBER OF MOLECULES OF EACH SPECIES ALLOWED IN PROGRAM. 

IF EXCEEDED, PROGRAM EITHER FAILS OR RESTARTS AT BEGINNING 
WITH NUMBER REDUCED BT 10T - EXAMPLE BELOW NMP=20000 

HPB= MAXIMUM NUMBER IN EACH CELL - EXAMPLE NPB=100 

DIMENSION DBA (1, 1500), HB (1 , 1500), NBF (1,1 500), NBT (1,1 500) ,LKW (1500) 
DIMENSION THP (1, 1500) ,T5PA (1, 1500) ,XV (1, 1500) ,XVA(1, 1500) 

DIMENSION TV (1,150 0) ,TVA (1,1500) ,2V (1, 1500) ,2V A (1, 1500) , DB (1 , 1500) 
DIMENSION TEP(1, 1500), TRPA (1, 1 500) , NBS (1,1500) , NBH (1,1500) 
DIMENSION NBN (1500) , T (1, 1, 1500) 

DIMENSION LB (20000) , LS (1 , 20000) ,ER (1 ,2 0000) 

DIMENSION LPF (1,2000 0) , PAU (1, 2000 0) , PAV( 1,2000 0) ,PAW (1,20000) 
DIMENSION PAX(1, 20000) ,PAT (1 ,20000) ,PA2 (1,20000) ,LCOL ( 1, 20000) 
DIMENSION FNB (2600) ,XC (2600) ,TC(2600) , ZC (2600) ,NUMCEL (2600) 

DATA NSP/1/, H MB/2 6 00/, NHC/1500/,NHP/20000/ ,NPB/1 00/ 




2 FORMAT (/17I, 'NORMAL TERMINATION OF THE PROGRAM') 
NAMELIST/DIM/HSP, H MB, NMC, NHP, NPB, NRAN 

INITIALIZATION OF RANDOM NUHBEB GENERATOR - PRINCETON ROUTINE 


NRAN (1)®0 
NRAN (2)*0 
NRAN (3) *0 
NRAN (4) =0 

PRINTOUT OF MAJOR ARRAY DIMENSIONS USED ABOVE 


& * 
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WRITE {6, Did) 


PBIHCETON UNIVERSITY TIHE-SBABING SYSTBS 


INS 
HSR 
SNB 
HSP 
SET • . 

U 

INGLE 
END 
RRA 
TF , 

DENF • : : - : 

GROLEC- - 
PARARETZB 
TRE - , • 

DIR - 

eta:-; : 
'MV;?'. 

CHI ' 

ACR. _ . 


CALL or RAIN OPERATING PROGRAR WHICH REQUIRES INPUTS: 

D CO NTRL, CTIRES, GFLOREF, CHOLEC , GSHAPES ,6GE0R, CCOUPLE 

THESE INPUTS ARE ALL CURRENTLY IN THE HAHELIST FORHAT 

AND HAY HAVE TO BE CHANGED IF THAT CONVENTION IS HOT AVAILABLE 


DEFINITION OR EXPLANATION 

ANT ALPHA NUBERIC HARE UP TO 8 CHARACTERS 

ANY ALPHA NUHERIC TITLE UP TO 2« CHARACTERS 

ACCURACY IN INTEGRATION PROCEDURES 

NUHBER OF ADDITIONAL COPIES OF OUTPUT 

IF TRUE WILL CAUSE SISTER DUSP FOR ANY OF 12 

PBOGRAHSER DESIGNED ERROR HALTS. 

IF TRUE WILL PRINT HESSAGE WHEN CELL POP. EXCEEDS SNB 
IF TRUE WILL PRINT CPU TIRE AROUND EACH PART OF LOOP 
IF TRUE WILL PRINT CPU TIRE RERAINING AT END OF LOOP 
IF TRUE - NEW RUN - IF FALSE - RESTART OF RUN 
IF TRUE - SNAPSHOT SAVED ON TAPE (9) FOB RESTART 
IF TRUE PROGRAR WILL AUTOSATICA LLY RESTART WITH 901 
OF TOTAL IF TOTAL CELL ‘POPULATION EXCEEDS SNR 


DEFINITION OB EXPLANATION 

REAL NUHBER - FRACTION OF SEAN FREE TIHE PER CYCLE 
INTEGER - NUHBER OF CYCLES PER SASPLE 
INTEGER - NU33EF. OF CYCLES BETWEEN PRINTOUTS 
INTEGER - ESTI8ATE OF NUHBER OF CYCLES TO STEADY STA”E 
INTEGER - TOTAL NUHBER OF CYCLES TO END OF RUN - 
WILL TERHINATE SOONER IF CPU TIHE IS TO BE EX CCEDED 

RREHCE (NEB RUN ONLY) 

DEFINITION 

INITIAL NU3BER OF HOLECULES INH<SNH< OB = NR? 

HAIIHU3 NUHBER OF HOLECULES PER SPECIES 
HAXIHUH NUHBER PER CELL - DIAGNOSTIC ONLY 
NDHBFR OF ROLECULAR SPECIES (SAX. IS 3) 

IF 0 - DATA IS IN SI (KETRICJ UNITS 
IPX) - DATA IS IN ENGLISH UNITS 
FLOW VELOCITI (3/SEC) OB (FT/SEC) 

ANGLE OF ATTACK (DEGREES) 

ARRAY GIVING HOLE FRACTIONS OF SPECIES IN FREE STREAH 
ARRAY GIVING ROLECULAR WEIGHTS OF SPECIES ABOVE 
T REE STREAH TESPEBATURE (K OB B) 

.FREE STEEAS NUHBER DENSITY {HUS/H**3 OB NUH/FT**3) 


CCONTRL - 

ORE OCCURR 

PARAHETER 

DEFAULT 

NAHE 

8 BLANKS 

TITLE 

2U BLNKS 

PSRCNT 

.001 

ICOPY 

1 

DOHP 

• TRUE. 

DEBUG (1) 

• FALSE* 

DEBUG (2) 

.FALSE. 

DEBUG (3) 

• TRUE. 

NEW 

• TROE. 

SAVE 

.FALSE. 

redo 

• FALSE. 

CURES - 

ONE OCCUR 

PARAHETER 

DEFAULT 

DTH 

• a. • 

ITS 

- - - 

ITP 

• m a 

TST 

- - - 

TLIH 

• • • 

CPLOREF - 

ONE OCCU 

PARAHETER 

DEFAULT 


0.0 

0.0 


ONE. OCCURRENCE (NEW RUN ONLY) 

DEFAULT DEFINITION 

REFERENCE TEHPERATURZ FOR SOLECULAR DATA 
CROSS-SECTIONS AT REFERENCE TESP. (SSPISSP) 
PARAHETEBS IN DIFFUSION AND VISCOSITY LAW (BSPXHSP) 
PARAHETERS FOR ROTATIONAL RELAXATION (HSPXHSP) 
ROTATIONAL DEGREE OF FP.EEDOH PARAHETER (RHOT/2 - 1) 
ACCURACY IN ROLECULAR COLLISION CALCULATIONS 


A- 2 


0.0 

0.0 

0.0 

0.0 

.OOL • 


%€mm 
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'ILE: GKBEXT DECK 


PRINCETON UNIVERSITY TIHE- SHARING SYSTEH 


CS RAPES 
PARAHETE 

BODY (1) 
BODY (X) 

BODY (1) 

BODY (2) 
BODY (3) 

BODY («) 


BODY (5) 
BODY (I) 
BODY (J) 


- ND+1 OCCURRENCES WHERE HD= BOBBER OP BODY SEGHENTS (HEW BOH) 

:r default depinitxoh 

FIRST OCCUPREHCE 

0.0 STARTING POINT OF BODY FBOH PBONT OF CELLS (H OB FT) 

I>1 — heed not be specified 

SUBSEQUENT OCCURRENCES (ND) 

- - - X COORDINATE FBOH FRONT OF BODY OF THE DOWHSTREAH 

EDGE OF THE COBRENT BODY SEGHEHT 

- - - TEHPERATORE OF THIS BODY SEGHEHT 

SURFACE ABEA/TOTAL CBOSS-SECTIOHAL AREA FOR SEGHEHT. 

IF 0.0 PROGRAH WILL COHPUTE THIS QOANTITY 

_ SWITCH - IF 0.0 THIS SEGHENT* S EQ. WILL APPEAR LATER 

IF >0.0 THE EQ. OF THIS AND PRECEEDIHG SEGHENTS IS 
GIVEN BY BODY (6+2*HSP) TO BODY (9*2*HSP) 

- - - SWITCH -'IF NOT 0.0 THIS IS THE LAST SHAPES CARD 

I EVEN ALPHA - ENERGY ACCOHODATIOH COEFFICIENT FOR SPECIES 

J ODD SIGHA - TANGENTIAL ACCOHODATIOH COEFF. FOB SPECIES 

I AHD J < (6 + 2*HSP) 


BODY (6*2*HSP) 


BODY (7+2 
BODY (9+ 


*HSP) - 
2*HSP) 


ORIGIN OF COORDINATES WITH RESPECT TO BODY START 
FOR THE EQUATION OF THIS BODY SECTION 
COEFFICIENTS A,B,C IN THE EQUATION 
R**2* A*X**2+B*X*C*0. 0 FOR THIS BODY SECTION 


6GE0H - 
PARAHETER DEFAULT DEFINITION 

NWEDGE - - - TWO INTEGERS GIVING THE NOSBEB OF WEDGES BELOW 

AHD ABOVE THE ANGLE THETA2 

TBETA2 ANGLE FROH NEG. Y AXIS DIVIDING DIFF. WEDGE SIZES 

HHB SAX. BODY RADIUS - IF 0. WILL BE COHPOTED BY PROGRAH 

B w WIDTH (DEL X) OF FIRST LEVEL CELLS (H OB FT) 

BH HEIGHT (DEL R) OF FIRST LEVEL CELLS (H OR FT) 

KV RUBBER OF FIRST LEVEL CELLS IH X DIRECTION 

HH N0F.BER OF FIRST LEVEL CELLS IN RADIAL DIRECTION 

HI 1 NOHBER OF LEVELS OF CELLS 

jjpA 0 NUHBER OF FIRST LEVEL CELLS AHEAD OF LEVEL 2 

HCA 0 NOHBER OF FIRST LEVEL CELLS SUBDIVIDED INTO SECOND 

LEVEL CELLS ALONG THE X DIRECTION 
UHA 0 AS ABOVE BUT IN RADIAL DIRECTION 

nH 0 NUHBER OF SECOND LEVEL CELLS IN THE X DIRECTION 

j5 H 0 NOHBER OF SECOND LEVEL CELLS IH THE RADIAL DIRECTION 

jlf B 0 NOHBER OF SECOND LEVEL CELLS AHEAD OF LEVEL 3 

UCB 0 NUHBER OF SECOND LEVEL CELLS SUBDIVIDED INTO THIRD 

LEVEL CELLS ALONG THE X DIRECTION 
HHB 0 AS ABOVE BUT IH RADIAL DIRECTION 

L B 0 NOHBER OF THIRD LEVEL CELLS IN X DIRECTION 

LH 0 NOHBER OF THIRD LEVEL CELLS IH RADIAL DIRECTION 

- - - NOHBER OF FIRST LEVEL CELLS FROH AXIS IB fi DIRECTION 

FOR WEIGHTING FACTOR BOUNDARIES (5 INTEGERS) 

LF - - - WEIGHTING FACTOR RATIOS AT BOUNDARIES ABOVE (5 INTEGERS) 

&COUPLE - ONE OCCURRENCE (NEW RUN ONLY) - DISTRIBUTION FUNCTION 
PARAHETER DEFAULT DEFINITION 

Hs THE NUHBER OF BODY SEGHENTS FOR ACCOHOLATING VELOCITY 

DISTRIBUTION FUNCTION INFORHATION 


ONE OCCURRENCE (NEW RUN ONLY) 


DEFAULT 


A- 3 


ORIGINAL P;^- 
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TLE: GKBEXT DECK 


PHIKCETON OHIYERSITY TIHE-SHAEING SYSTEH 


rt S 2 " “ A ? PAT tHS) 0r iXIAL SEGHEHT HtlHBEES 

VEL , V u i!!f T(NS > 0P WITHAL HEDGE BOBBERS 

SL - - 2 ° P °® sfLS? L mo?i?? L SPACE S 

ocls ss&s's^ss ?^x o, ..*,v“ em sklld ° r 

" ■ 3L3S ‘SSTSTi, roB slBP “ ° p 

scoopIx”!” 1 ”™" P ”“ CT10K mwsutio. IS hot unu osx: 

l SAHPLE INPUT DECK IS GI7EH BELOB: 


YECONTRL EASE®* SHUT* , • TLE ’, 

DEBUG*. E. ,.T. ,.T. ,NER». T. 

:CTIHES DTS®. 025, ITS=5,ITP= 1 
7EFLOREE I NB*4500 , HNB=20 00 0 
: B3A=2B. 94,0.,0., TP® 195.51 

lEHOLEC TEP=1000,DIE=3.5E- 19 
tCSHAPES BODT® 1.00 F. EKD 
'SHAPES BODY®. 0 173, 1590.. 3* 
•6SHAPES BODT®. 0672, 1590. ,3® 
•ESHAPES BODY®. 1444, 1590 ., 3* 
ESHAPES BODY®. 2432, 1590., 3* 
^SHAPES BODY*. 3579, 1590. , 3*1 
ESHAPES BODY®. 4842, 1590. ,3* 
‘SHAPES BODY*. 6 192, 1590. ,3*1 
ESHAPES BODY®. 7405, 1590.., 3*j 
rESHAPES BODY®. 7500, 1590. ,0. 
ESHAPES BODY®. 9000, 1590., 0.< 
EGEOH KBEDGE=1, 0,THETA2=180. 

NPA=15,NCA=20,NHA=16,NW=40, 
* COOPLE KS=3, !1S*1 ,5,8,135*1, 
DELS=27*20. SEND 


, TITLE®’ HYPE* ,’ BBOL’ , ’A AT’,’ 95K» < « mi tnv i 
., SAVE®. T.,ICOPY®0, REDO®. T. B*ND * t OV. , 

1000,TST=400,TLIH=1000 EEND 

, 1 5 H ?SS'°- 7 * 85 - 9 ' M «»-0.0.HWO-,..2.0. 

9, ETA*. 104,PHI=0. 0, CHI=— 1 . , ACB® . 0 01 CEMD 

•0. 0/2*1. 0 SEND 
'0. 0,2*1 . 0 0 END 
•0.0,2* 1.0 EEHD 
'0.0, 2*1.0 EES D 
'0.0, 2*1.0 E END 
'0.0, 2*1.0 SEND 
■0.0, 2*1.0 EEND 
0.0, 2*1.0 EESD 

, 1. ,0. , 2*1. ,0. ,-1. 423278,-2. 286, 0. E ”KD 
0,4*1.0,0.9000,-111.82,2*0.0 E*SD 

* l' ° 5, HH= * 1 ' NB=i,C * NH=24, NL=2, 

9 EL -2. 5, 2. 5,2. 0, a J= 20 , SL= 9* 1 . , 1 8*-9 


STOP 

END 

1 S rv!?!”J5 J?J^f5|”J'^^®“ P ^ P ^Bj£SB.HBF,HBT,THP,THPA,IV, XVA, 

a 2S F 

ROUSING PROGRAB ** RON *** CALLS ALL OTHER SOROOTIHES 




IFTEGEE*2 LH,LPP,LCOL,LKB 

iHTE«f*m B sA S 5^?l^5 T B ; HBP ' HBT ' !,BSp ' !,0 " CE1 - 

PET,SA!1P,TST,TLIH,TIHE,Q 
.LOGICAL DOaP,DEBOG{3),SA7E,NEB,REDO - - : 


ORIGINAL Fy'.'~:: ,3 
OF POOR QUALITY 


ile: gkbext deck 


PRIRCETON ONITBRSITT TIHE— SHARING SYSTEM 


REAL INTGRL,LAS,BO,K0, JAY, KAT 

DIMENSION BTA (3) ,C1 (3) ,C2{3) ,C3 (3) ,C7{3) ,C8(3) ,DFA (3) ,FL{3) 
DIMENSION DELANG(2) ,FDN{3) ,HTI (3) ,RTR(3) , JNT (3) , KNH (3) ,NH(3) ,SR (3) 
DXNENS ION NAME (2) , TITLE (6) ,NSBDGE (2) ,LD(5) ,LF(5) ,LiF (6),RLD(6) 
DIHENSION END (3) ,BHA (3) , VTH (3) , CHI (3) , DIE (3,3) , DAB (3,3) , PHI (3, 3) 
DIMENSION ETA (3,3) , CN8(3,3), CNG (3) ,CHG (3) , CN (3, 3, 3) ,CH (3, 3, 3) 
DIHENSION CTI (3,3) ,CTE (3,3) ,CNI (3,3) ,CNR (3,3) , LET (3) ,SN(3) ,ST(3) 
DIHENSION D1 (3) ,D2 (3) ,D3 (3) ,D4 (3) ,BODI (15) ,DBG1 (3,3) , LIMIT (10) 
DIMENSION TL (3,3) , DELV (3,3) ,SSA (2,3) ,SSB (2,3) , TEL (3) ,COEFF (4,9) 
DIHENSION rLIH(12) ,NTCF (3,3) ,HS(3),IBS (3) ,TANGN (3) ,HCOL (3,3) 
DIHENSION FT (3,3,2,20,3) ,NTCV(3, 3,2,20,3) , SL (3,3,3) , DELS (3,3,3) 
DIMENSION ICB (18) ,XS (18) ,TCB (18) ,TB (18) , ALPHA (3, 18) ,SIGHA (3, 18) 
DIHENSION NTS (3, 18,12) ,NTSF(3, 18,12) ,0TL (3, 18, 12) ,OTT{3, 18,12) 
DIHENSION TTS (3, 18,12) ,HTSI(3, 18, 12) ,BTS (3,18, 12) 

DIHENSION 0TLI (3,18, 12) ,UTTI (3, 18, 12) ,TTSI (3,18, 12) 

DIHENSION ENT (2,3,6, 12) ,REM(2, 3,6, 12) , ENTS (3,12) ,REHS(3, 12) 
DIHENSION FTH (3,12) , THETA (12) ,DTH(12) 

DIHENSION LB (NHP) , NBH (NHC) , NBM (NSP,NHC) , LS (NSP,NHP) 

DIHENSION EE (NSP, NHP) , TEP (NSP, NHC) ,TEPA (NSP,NSC) 

DIHENSION DBA (NSP, NHC) ,NB (NS?, NHC) , NBF (NSP, NHC) , NBT (NSP, NHC) 
DIMENSION THP (NSP, NHC) , THPA (NSP, NHC) ,IV (NSP, NHC) ,XTA (NSP, NHC) 
DIHENSION YV (NSP, NHC) , YTA (NSP, NBC) ,ZT (NSP, NHC) ,ZTA (NSP, NHC) 
DIHENSION T (NSP, NSP, NHC) ,DB(NSP,NRC) ,LKN (NHC) , NBS (NSP, NHC) 
DIHENSION FNB(NHB) ,IC(NHB) , TC (NBB) , ZC ( NHB) , NOHCEL(NHB) 


DIHENSION LPF (NSP, NHP) , PAO (NSP, NHP) , PA V ( NSP, NHP) ,PAW (NSP, NHP) 
DIHENSION PAX (NSP, NHP) ,PAT (NSP, NHP) , PAZ (NSP, NSP) , LCOL (NSP, NHP) 

EXTERNAL FNCTN , FNCTH 


HDN0360 


R0NO44O 

R0NO45O 

RON0460 


COMMON 

COMMON 

COHHON 

COMMON 

COHHON 

COHHON 

COHHON 

COHHON 


/EANCOH/NEAN (4) ,KABLS 
/FIRST/NL,NB,NH,HB,HH,LS, LH,NXA,NXB,HCA,NCB,NFA,HFB,NHA,NHBRDH0 480 


/SECND/BB , BH, BWB, BHB, BBC , BHC, XLB, ILC R0NO49O 

/THIRD/PI, N REG, S, SINANG, COS ANG, AKN RON0500 

/PORTH/NBX, RH,XB,D03P,C9, BRPH, LL BOKO 510 

/FIFTH/ND, TIHE, DTH, TI , ITS, ITP , TST, TLIH, RH A, RN 0, DIE RDN0520 

/SIXTH/E HB, XSTAET, J NH, HNS, HNB, NEB , SATE, PERCKT, NSB,TR ROK0530 

/ST NTH/LA H, HO, NO, HT, N , J , X , T,Z , TOSE ROH0540 

CO HH ON /El G TH/DSN F, 0, TF , A NGLE , TRF , CHI , PHI , ETA ,WTH, DAB , TELE, XRE? 
NAHELIST/CONTRL/NAHE, TITLE, PERCNT,ICOPI, DU HP, DEBOG, NEB, SATE, REDO 
NAHELIST/TIHES/DTH, ITS, ITP, TST, TLIH RON0580 

NAHELIST/FLOEEF/INH, HNH, HNB, HSP, HET, 0, ANGLE, BHO, RHA, TF,DENF 
NAHELIST/HOLEC/TRF, DIR, ETA,PHI ,CHI, ACE 

NAHELI ST/SHAPES/BODY RDN0570 

NAHELI ST/G EOM/NBEDGE, THETAZ, RSB, SB, BH, NW,NB, NL,NFA,BCA,NHA ,HK, HH, N 
1HB,LB,LH,LD, LF, NFB , NCB 

NA RELIST /COO PL S/NS, H S, I VS, TEL, HJ, SL, DELS ROH0590 

DATA IC/0/,ICOPX/1/ 

DATA DBG1/' GAS',' AT ',*110 ', 'FLOS',' AT 
1 ' 303 •/ 

DATA LIHIT/12,9, 18,500 ,3 60 0,70, 900, 3, 20, 3/ 

DATA TITLE/' ',' ',' • ,' 

DATA NAME/' ',' •/ 

DATA CPC/0. 0/,CPK/0.0/,CPB/0.0/,CPJ/15.0/ 


i,' 130 


AT 


• ,RON0630 
BONO 640 

RON0660 

BON0670 

EOH0680 
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"TLB: GKBEIT DECK 


PRINCETON UNI7EBSITI TIHE-SHABING STSTEH 


************************************ 


FORMATS 


••RUN0690 
BDN0700 
RUN0710 
BUN0720 
BUN0730 

. RUN0740 

1 FORMAT (1H1) . H0H0750 

2 PORMAT (1H1/17X, • RARIFIED SUPERSONIC FLOW OP BIKABI GAS • ,T74, • I • ) B0N0760 

3 FORMAT('+',103X,'COPY *,I2) B0H0770 

4 POBBAT (/17X, • PLOW THROUGH ALL THE BOUHDARIES •//) 

5 PORHAT (3X,3I4,6E18.6/) 

6 POEH AT (71,214, E 18. 6 ,72X , S18 . 6) 

30 POBBAT (• 1TIME ■» , P6. 3, 60X, .* B ANDOH KDBBER GENERATOR HAS BEEN CALLED 
1 ',110,' TIMES* ) 

31 POBBAT (’ CPU TIME LEPT- *,P8.3) 

32 FORHAT (71 , ‘-MOLECULES- */3X, 316) 

33 FORMAT ( * TIME * • , P8. 3, 5X, • COLLISION LOOP=* , ?8. 3,5X, • MOTE LOOP 
1,F8. 3, 5X, 'TOTAL TIME = '", F8. 3/21X, * 2ND HOVE LOOP =',P8.3,5X, 

2 'CLEANUP LOOP=' , F8. 3,41, 'PARTICLE RUBBERS = *,416) 

34 POBMAT (91, '-B0LECULA3 COLLI SI ONS- ' /3 (31 1 4/) ) 

FORMAT (21, COLLISIONS WITH SURFACE-'/3l,3I8) 

POBBAT (' BAZIBUM RUBBER OP BOLECULES SO PAR- ',16//) 

POBMAT (• EXCESS BOLECULES OCCURRED IH ’/3A4) 

POBMAT (/' SOMETEIHG IS WRONG WITH BOX HUMBEP.IHG IH BUB 

17,315, 2E17. 7, 515/2 El 7. 7) 

42 FORMAT (/' SOMETHING WEONG IN COMPUTING X START'/1 X, 8E 16 . 8) 

44 POBMAT (' NB(', 12, ',*,14,') POPULATION EXCEEDED ',13,' IN BAIN A 
USE = ' , F7. 3) 

50 POBBAT (///• SNAP SAVED OR TAPE') 


BUN0800 

BUN0810 


35 

36 
38 
40 


RUN0880 
RUH0890 
'/5I5,2£17.EUN0900 
EURO 910 
BUN0920 
:RUR0930 
BUN0940 
RUR0950 
RUN0960 

*** ********************************** ************** ** ** **** **** ******** R3N 0 97 0 

R0N0980 


CPA^ELTISE £0) 


CALL NOONDF 


LIBIT (4)=RMC 


LIBIT (5) =FBP 


LIMIT (6)=N?3 


LIBIT (7) =RMB 


LIBIT { 10 ) =KSP 


KAFLS=0 


PI=3. 141593 

RaH1030 

PIROOT=SQET (PI) 

BDH10U0 

HFT*0 


LABGE-0 

BUH1060 

HL~1 

RUN1080 

RFA=0 

BUN 1 090 

KCA*=0 

BUH1100 

HRA=0 

BUR1 110 

BV*0 

RUN1 120 

RB*0 

RUH1 130 

NFB=0 

B ON1 140 

BCB*0 

BUN1150 

HHB*0 

RUN1160 

LH*0 

BUH1170 

LH*0 

BUH1180 


i 

? 

r 
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HE; GKBETT DECK 


PRINCETON UNIVERSITY TIHE-SHABIRG SYSTEH 


BJ=20 

DUHP=.TR0E. 

DEBOG (1) =. FALSE. 

DEBOG (2) =- FALSE. 

DEBOG (3) *. TBOE. 

SATE-. FALSE. 

HEV-.TR0E. 

REDO*. FALSE. 

PERCNT*. 00 1 
ACB= .001 
DO 58 1*1,15 

58 BODY (I) *0.0 
DO 60 1*1,3 
BHD (I) =0. 0 
RHA (I) *0.0 
CHI (I) *0.0 
DO 59 0*1,18 
ALPHA (I, J) *1 . 0 

59 SIGSA (I, J)*1.0 
DO 60 K*1 , 3 
ETA (I, K) *0.0 
PHI (I , K) *0.0 

60 DIR (I, K) *0.0 
TEL ( 1) *3. 

TEL (2) *3. 

TEL (3) =4. 

WRITE (6, 1) 

READ (5.CONTEL) 

WHITE (6, COHTP.L) 

IF (NEW) GO TO 103 
RE WI ND 9 
READ (9) DENF,0,XR£F,TPF, 


ROH1190 


ROR1230 

RON1260 

ROH1240 

ROH1250 


KAWLS,NL,NW,NR,HW,aH,LW,LH.NXA,NXB,NCA 


RON1300 
ROH 1 310 
ROH1320 
RUR1330 
ROR 1340 

ROR1360 
ROR1370 
ROR1380 

1 ,HCB , SFA, RFB , RHA, RHB , BB , BH , BWB , BKB , BBC, BBC, ILB, XLC , PI, RREGRON 1390 

2 |s,SIRARG, COSANG, AKR, KBX, RS, XR, ND,TIHE,DTH,TI, ITS, ITP, TST ROK1400 

3 ,TLIK, FF.A , RKO, DIE , XST ART, JN3, 3RH, KRB,TR, B2C, CK7, DRF, FCF ROR 14 1 0 

4 ,FHA,HTF,IN3,ITYPE,JTTPE,3J,NAV,N3AI,NS,HWEDG,PBT,SAKP R01 *]‘ , 20 

5 . BTA.C 1 , C2, C3, C7,C8, DAH, DFA, FL, DELARG, FDR, HTI, HTR, JKT, KNH ROK14 30 

6 ,RR,WTR,C4, VRH, RCOL, LD , LF, LVF , F.LD, CTI, CTR, CK I, CUE, LEV, SR ROR 1 44 0 

7 ,ST,D1 ,D2, D3, D4, SS A, SSB, £S, NSP, N3B , NHC , N3P, KP3 , NRAH, VELR 

8 , IBS, TANGN,XLIH,CO£FF,XCB. IS, YCB,TB, ALPHA, SIGMA. NTS, NTSF FORI 460 

9 , OTL, OTT, VTS , HTS, HTSI , ENT , RES, ENTS, RERS, FTH, THETA, DTH, TSPAROK 1 470 

A ,DBA, KB, NBF,NBT,TRP, XV,IVA,YV, Y V A, 2V,Z VA.T, DE, FN B, XC.YC. 2CROK1 460 

B ,KUMCEL,PAU,PAT,PAW,PAX,PAY,PA2,FV,NTCV.NTCF,LPF.LC0L,LH ROR 1490 

C, ETA ,PHI,CHI,CK,CH,CRG,C3G ,CN8,TRP,TEPA, THETAZ.N WEDGE, HSP, ANGLE, TF 

D. OTLI, OTTI, VTSI, £R,RRB»LKV,NBS»LB,N3B,NBN . 

REWIND 9 R0H150O 

DTBO*DTS 
BEAD (5, TIRES) 

WRITE(6, TIRES) 

IF (DTH.EQ. DTHO) GO TO 100 . 

AIHE*TIHE*DTSO 

TIRE*AIHE/DTR*0. 1 

DO 99 J=1,H5P 

DO 99 L*1 , RWEDG 

ENTS (J,L) *EHT5 (J,L) ♦DTH/DTHO 
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A 


PRINCETON ONIYEHSITI TI HE- SHARING SYSTEH 


DO 98 K=1 , 6 
DO 98 1=1,2 

EST (I,J,K,L)=ENT (I,J,K,L) *DTfl/DTSO 

98 CONTINUE 

99 CONTINUE 

100 IF(TI.GT.O.O) TST=TI/DTH 
WHITE (6, 2) 

WHITE (6,9) 

WHITE (6, 5) {( (I,J,L, (ENT(I,J,K,.., ,K*1,6) ,1=1,NWEDG) ,J=1,HSP) ,1*1,2) 

WHITE (6,6) ( (J,L,ENTS (J,L) , FTH (J,L) ,L=1,NWEDG) ,J=1,KSP) 

WHITE (6, 2) BUN15U0 

CALI PHIHTA (THETAZ, KWEDGE, TITLE, NAH£,XCB,YCB,TB, ALPHA, SIGN A, LD,LF, RUN 1550 
1XLIM, COEFF, LIBIT, HSP) 

CALL PRINTB (FRA, HSP, FNB, LET , LWF, NH, BLD,XLIH, IC ,TC, ZC , NB, NUHC £L,LKW 
1 , RSP) 

GO TO 280 . • H0R1590 

103 HEAD (5,TIHES) 

WHITE (6, TIHES) 

HEAD (5,FL0REF) 

WHITE (6, FLOEE?) 

HEAD (S,HOLEC) 

WRITE (6, SOLSC) 

IF (HSP. GT, LI HIT (10)) CALL DIAG (10, LISIT (10) ,HSP) 

CHIH=0. 0 
BHH*0. 0 
DHB=0. 0 

DO 1*15 H= 1 , HSP 
EHR=R!1B*RH A (H) *?.NU (H) 

CBIH=CEIH+CHI (H) *HN0 (H) 

DO 115 K= 1 , ESP 

115 DHR=DHB*BKU (H) *RKU (K ) «DI2 (H, K) * (TRF/TF) ** (ETA (R, K) /2.) 



XHEF=1./(DERF*DHR*1.414214) 

TELB*SQBT (16628. 6«*7?/RHR) 

IF (HET.KE. 0) VELH=SQRT (99437. 92*TF/RHH) 

THB*XP.EF/VELR 

S=U/TELB 

XLIH (1) =0. 


FUN 1 6 1 0 


TR=0. 


BUN1620 


IR=0. 


BUN 1630 


HREG=0 


BUN 164 0 


KD=0 

READ (5, SHAPES) 
WHITE (6, SHAPES) 
XO=BODI (1) /XREF 


BUN16S0 

ion 

READ (5, SHAPES) 
WHITE (6, SHAPES) 


BUH1670 


ND=ND+1 


HUH1680 


IF (HD. GT. LIBIT (3) ) CALL DIAG (3, LI SIT (3) , HD) 
XCB(ND)=BODY (1)/XBEF*XO 
TB (KD)=BODT (2) /TP 
TCB (ND) *BODT (3) 

* 

RUB1690 

. 

DO 1104 8=1, HSP 



•V 

ALPHA (It, ND) *30DT (4*2*S) 



non 

SIGHA (H, HD) =BODT (5 + 2=H) 
IF(TB(ND).GT.TH) TR=TB (HD) 


RUB 1770 

- 

. . . . • . - - - • - 
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a 


. PILE: GKBEXT DECK A 


PRINCETON BNITERSITI TIRE— SHARING SISTER 


IP (TCB (HD) .GT. TR) TB*TCB(ND) 

IP (BODT (4) .EQ. 0. 0) GOTO 104 
NREG*NBEG+ 1 
I LIS (NREG + 2) *XCB (ND) 

IT*BODT (6*2*HSP) /IREF+XO 
A«BODT (7 ♦2*HSP) 

B=BODT (8«-2*HSP) /XREF 
C=BODT (9*2*HSP)/XREF**2 
COEPP (1, NREG) *A 
COEFP (2, HBEG) = 1.0 
COEPP (3, HBEG) *B-2. *A*XT 
COEPP (4, NREG) = A*XT**2-B*XT+C 
IF (BOOT (5) .EQ.0.0) GO TO 104 

IP (HREG. GT.LIHIT (2) ) CALL DIAG (2, LIBIT (2) ,NBEG) 

NSTEP=HREG*2 

A*COEFP (1# 1) 

B*COEPF (3,1) 

C=CO£FP(4,1) 

DISC=B*B-4.*i*C 
IP (DISC. LT. 0. ) DISC=0. 

DISC® SQRT (DI SC) 

IP (A.NE. 0. ) GO TO 108 

XSTART=-C/B 

GO TO 109 

108 I1=.5/A* (-B*DISC) ... 

X2=. 5/A* (-B-DISC) 

XSTART=A HI N1 (X1,X2) 

XHAX=ABAX1 {XI, X2) 

IP (XHAX. LT.XLIH (3) ) ISTART=IHAX 
IP (XSTAET.GT.O.) GO TO 109 

WRITE (6,42)XSTART,A, COEFP (2, 1) ,B,C,DISC,X1,X2 
IP (DORP) CALL ABEHD{1) 

STOP 

109 XLIH (2) =XSTART 
A=COEFF { 1 / HBEG) 

B=CO£FF (3, HREG) 

C=COEPF (4, HBEG) 

DISC=B*B-4.*A*C 

IF (DISC. LT. 0. ) DISC=0. 

DISC=SQRT (DISC) 

IP (A. HE. 0. ) GO TO 111 
XLIR (NSTEP)*— C/B 
GO TO 112 

111 XI*. 5/A* (-B+ DISC) 

X2*. 5/A* (-B-DISC) 

XLIH (NSTEP) =AHAX 1 (XI, X2) 

XHIN*ARIN1 (X 1, X2) 

IP (XRIH. GT. XLIH (HSTEP- 1 ) ) XLIH (NSTEP) =XHIN 

IP {XLIH (NSTEP) .GT. XLIH (NSTEP-1) ) GO TO P12 

WRITE (6, 42) XLIH (HSTEP) , A, COEFP (2, HBEG) # B,C,DISC,X1,X2 

IP (DDHP) CALL ABEND (1) 

STOP 

112 AKN=1. /(XLIH (HSTEP) -XSTART) 

XCB (HD) =XLIH (HSTEP) 

DO 260 H* 1 ,3 


BDH17B0 

B0I1800 


B0H1860 
B0K1870 
RDH1880 
RDK1890 
RON 1 900 
RON 1910 
R0H1920 
RON 1930 
RDH1940 
ROH1950 
B0N1960 
RDH1970 
ROH1980 
R0K1990 


RDH2000 

ROH2010 

ROK2020 

R0N2030 

RDN2040 

R0H2050 

ROH2060 

R0N2070 

RON2080 

RON2090 

ROK2100 

B0N2110 

R0H2120 

RON2130 

B0H2140 

R0H2150 

R0H2160 


ROH2170 

ROH2180 
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MS (N) *0 
IWS(N) *0 
DO 2S9 fl*1,3 
NCOL (N,H)=0 
. DO 258 K=1 f 3 
SL (N, H,K) =0. 0 

258 DELS (N,K,K)=0. 0 

259 CONTINUE 

260 CONTINUE 
READ (5,GEOM) 

READ (5, COUPLE) 

WRITE (6,GEOM) 

WRITE (6, COUPLE) 

BW=BW/XREF 

BB*BH/XREF 

RHB*RHB/XREF 

IF (RMB.GT. 0. ) GO TO 264 ' 

DO 262 K=1,NREG 
XBSG= XLIM { K ♦ 1 ) 

XEND=ILIM (K+2) 

A=COEFF(1,K) 

B=COE?F(2,K) 

C=COE?F(3,K) 

D=COEPF (4,K) 

REND=SQRT (ABS { ( A *X END* *2 *C*XESD+D) /B) ) 

IPEAK=0. • 

IFfA.NE.O.) XPEAK=-.5*C/A 

IF ( (XPEAK.LE.XBEG) .OR. (XPEAK.GE. XEND) ) GO TO 261 
RTEKP=SQBT (ASS ( ( A * XPEA K**2*C*XPEAK*D) /B) ) 

IF (P.TEMP.GT. REND) REND=RTEMP 
26 1 IF (REND.GT.RMB) ESB=BSND 
262 CONTINUE 
264 CONTINUE 

NWEDG=NWEDGE (1) ♦ NWEDGE (2) 

IF (NWEDGE (2) . EQ. 0) THETAZ= 130.0 
IF (SAVE) REWIND 9 

IF (NWSDG. GT. LIMIT ( 1) ) CALL DIAG (1, LIMIT (1) ,NSEDG) 

IF (Mh'M.GT. LIMIT (5) ) CALL DI AG (5, LIMI T (5) , K KM) 

IF (SN3.GT. LIMIT (6) ) CALL DI AG (6 , LIMIT (6) , MNB ) 

IF (NS. GT. LIMIT (3) ) CALL DIAG (8, LIMIT (9) , NS) 

IF ( (NS. HE. 0) .AND. (HJ.GT. LIMIT (9) ) ) CALL DIAG (9, LIMIT (9) ,HJ) 
JHH*INH 

DELA HG (1) =THETAZ/NWEDGE ( 1) 

DELANG (2) =0. 0 

IF (NWEDGE (2) .NE. 0) DELANG (2) = ( 180.-THETAZ) /NWEDGE (2) 
SINANG=SIN (ANGLE/180. *PI) 

COSANG=COS (ANGLE/1 80. *PI) 

XR=BW*NW 

XLIM (ESTEP* 1) =XB 
RH=BH*NH 
VOL*PI*RS*RM*XR 
NXA*NV*SH»NWEDG 
NXB»MW*HH* NWEDGE (1) 

BXC=LW*LH*NWEDG2 (1 ) 

IX A=NW*NH* NWEDGE (1 ) 


RDN2200 


BUN2220 

RUN2230 

RUN22U0 

RUN2250 

RUN2290 

RUS2300 


RUN2320 

RUN2330 

RUN2380 

R0N2390 

RUB2400 

RUN2420 

RUN2430 

RUN2440 

RUN2450 
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FILE: GKBEXT DECK 


A 


PRINCETON UNIVERSITY TISE-SHABING STSTEH 


NBX=NXA*NXB*NXC 

IP (NBX.GT. LIMIT (7) ) CALI DIAG (7, LIBIT (7) ,HBX) 

BB=SQRT (TB) 

DO 113 N= 1 , 5 

113 RLD (N) =BH*LD (N) 

RLD (6) =RH 

LWF (1)=1 
BNFH=RLD (1) 

B=BHFH*RWFH 

C=B 

DO 114 N=2,6 
A=RLD(H) *RLD (N) 

LWP(N) =LWF (N-1) *LF (B-1) 

B®B* (A-O/LWF (H) 

D=RLD(B)/LVF(N) 

IF (D.GT. RWFH) RWFH=D 

114 C® A 

INH®INB*RH*BH/B 
DDN®INB/VOL 
DO 140 HT* 1 , BSP 
NTH (HT)®BBA (BTJ/BHB 
FDN (BT) ®RNU (BT) *DDN 
DFA (HT) =RNU (BT) 

BTA (HT)®SQRT (NTH (BT) ) 

SR (BT) =S*BTA (BT) 

SN (HT).=SR (ST) *COSANG 
ST (HT) =SB (HT) •SINAHG 
DO 117 K= 1 , BSP 

DA H (K, HT) =DI R <K, HT) * (TRF/TF) ** (ETA (K, HT) /2. ) /DHR 
CH8 (K, HT)=DDN/DAH (K , HT) * 1. 4 1 421 4 
BT=AHIN1 (BTA (K) , BTA (HT) ) 

VBl=S+3. * ( 1. ♦SQRT (TR) ) /BT 

YR2=3.*SQRT( ( 1 . ♦2. *S **2/ (5. ♦CBIH) ) * ( 1./BTH (K) ♦ 1./VTH (HT) )) 
CH (K, HT, 1) = AH AX 1 (VR1,VB2) 

CK (K, HT, 1 ) =RAND (0) *CH(K,HT,1) 

DF=PHI (K, BT) * (CHI (K) *CHI (HT) +2.)-1 
DS=PRI (K,HT) * (2.-. 5* ETA (K, BT) )- 1. 0 


RUN2460 

BUN2470 

BUN2480 

RUN2490 

BUK2500 

RUN2510 

R0N2520 

BUN2530 

BUN2540 

BUH2550 

RUN2560 

RUN2570 

R0K2580 

RUN2590 

RUN2600 

R0H2610 

RUN2620 

BON2630 


B052730 

RDH2740 

RON2750 


DO 917 N=2,3 
XPH=ACR**AHIN1 (DF, DS) 

IF((DF.GT.O.) .AND. (DS.GT.O.) ) XPH® (DF/ (DF*DS) ) **DF* (DS/ (DF+DS) ) **DS 
XPN=ACR**AHAX1 (DF, DS) 

IF ( (DF. LT. 0. ) . AND. (DS.LT.O.) ) IPS® (DF/ (DF*DS) ) **DF* (DS/ (DF+DS) ) **DS 

CB(K,HT,N)=XPB-XPN 

CN (K, BT, N) ®BAND (0) *CB(K,HT,N) 

DF®CHI (K) 

DS=CHI (HT) 

917 CONTINUE 
117 CONTINUE 
ARG*SH (HT) 

DO 119 NT® 1,2 
D*ERRF (ARG) 

TEHPA*EXP(-SN(HT)*SF (BT) ) /3. 544908+0. 5*ABG*D 
T£HPA=TEHPA/BTA (HT) 

TEHPC®0 
DO 118 N®1 ,6 


RUN2760 

BUN2770 

RUF270O 

BUN2790 

RDN2600 

RUN2810 

RUN2620 
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TEBPB*BLD(N) *RLD (N) ' 

TEHPD=INH*T2BPA*DTB/{XR*BH*BH) * (TESPB-TEBPC) /LIP (N) 

DO 116 K*1 ,NIEDG 
DELTH=DELANG (1) 

IP (K.GT.NVEDGE (1) ) DELTH=DELAHG (2) 

ENT(NT,HT,H,K) =T2BPD*DELTH/180. 

116 BBS (NT,3T, H,K) = 0. 

TEHPC-TEBPB 
116 CONTINUE 

SSB=ABG*ARG 

SSA(NT,ET)=ARG+SQBT(SSB+2. ) 

SSB (HT,HT)=SSA (NT, BT) * (.25*SSA (NT, BT) -ABG) 

119 ARG=-ABG 
CBT=CHI(BT) 

IP (CHT.GT. 0. ) CHG (BT) =CHT**CHT*EXP (-CHT) 

IP(CHT.EQ.O.) CBG ( BT) = 1 . 0 

IP (CBT.LT. 0. ) CBG (NT) = ACR**CHT*EXP (-ACB) 

CNG (BT) = RAND (0) *CBG (BT) 

ANG=0. 

N=0 

ARG*ST(BT) 

TEKPD*IHB/PI*DTN/BB*2./(BTA (BT) *L»P (6) ) 

DO 135 B* 1 , 2 
I®NNSDGS (H) 

IP (I. EQ. 0) GO TO 135 

DO 134 K=1,I 

H*N+1 

AA-ANG 

BB=DELAHG (E) 

CC=AA+BB 
A NG=ANG+3B 
THETA (N) =AA 
DTH (N) =B3 
AA— A A*PI/1 80. 

CC=CC*PI/180. 

ARGA= ABG*COS (AA) 

ABGC-=ABG«COS (CC) 

ENTS (BT, N) =0. 

EEBS (BT, N) =0. 

PTH (RT,N) =0. 

TEBP A=0. 

I? (ARGA.LE.-10.) GO TO 120 
TEBP A=PNCTB ( AB G A , PIBOOT , L, COEPP) 

PTH (BT,H) =2. *PIEOOT*TEBPA 

120 TEHPB*0. 

IP (ARGC.LE.-10.) GO TO 125 
TEHPB=PNCTH ( ABGC, P IBOOT, L, COEPP) 

125 S0K1=TEHPA+TBHPS 

TEHPC*.5*SUB1* (CC-AA) *TEHPD 
IP (TEBPC.LT. 1.E-06) GO TO 134 

CALL SXflPSN (ABGA, ABGC, 0,IHTGHL,PEBCNT, COEPP, PIBOOT, SUB 1,PHCTS) 
ENTS (3T,N)»INTGRL*TEHPD* (CC-AA) 

^134 CONTINUE . 

135 CONTINUE 
140 CONTINUE 


RUN2830 

RUN2840 

BUN2850 

BUN2860 

BUN2870 

BUN2880 

RUN2890 

RUN2900 

RUN2910 

BUN2920 

R0N2930 

BUN2940 

RUN2950 


BUN2970 

RUN2960 

RUN2980 

BUN2990 

RUN3010 

BUN 3020 
RUS3030 
RUN3040 
RUN3050 
BUN3060 
RUN3070 
BUN3030 
RUN3090 
B0N3100 
RUN3110 
RUN3120 
RUN3130 
BUN3 140 
RUN3150 
BUN3160 
BUH3 170 
BUN 3 180 
BUN3190 
BUN3 200 
BUN3210 
BUS3220 
RUN3230 
BUN3240 
RUN3250 
BUN3260 
BUN3270 
BUN3280 
BUN3290 

RUN3330 
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♦ 


155 


157 


159 

160 


167 


168 

169 


IS (1) = .5* (XCB (1) -ISTAFT) *AKN 
DO 155 N=2,ND 

IS (N) = (.5* {XCB (N) +XCB (N-1 } ) -XSTART) * AKN 
IF(NS.EQ.O) GO TO 160 
DO 159 1=1 /NS 
N=HS (I) 

X-XS (N) /AKN+-ISTART 

J=0 

0=J+1 

I? (X.GT. XLIR (J+2) ) GO TO 157 
CALL HEIGHT(X,I,J,COEFF,3) 

TA NGN (I) = (ISS (I) 5) *DELANG (1) 

IF (INS (I) *DELANG (1 ) . GT . TBETAZ) TANGN (I) =THETAZ ♦ (IBS (I) -NNEDGE ( 1) 
15) *DELANG (2) 

Z=T*SIN (TANGH (I) *PI/1 80. ) 

T=-T*COS (TAHGH (I) *PI/180.) 

CALL NORH AL (EYE, JAY, KAY, ONE, COE FF) 

SNN=-S* (COSANG*EYE*SI NANG*JAY) 

ST 1=S* (COS ANG* ONE- EYE* SIN ANG* JAY/ONE) 

ST2*-S*S IN AHG*KA I/ONE 
DO 159 HT= 1 , HSP 

VL (HT, 1) =AHAX1 (0. , SNN-VEL ( 1) /BTA (HT) ) 

VL (MT,2) =ST1-VEL (2) /BTA (RT) 

VL (RT, 3) =ST2- VEL (3) /BTA (HT) * 

DELV (HT, 1) =SNN*VSL (1) /BTA (ST) -TL(HT, 1) 

DELV (HT, 2) =2. *VEL (2) /BTA (HT) 

DELV (HT, 3) =2. *VEL (3) /BTA (HT) 

AH J=H J- 1 
DO 159 K=1 ,3 
DO 159 J= 1 , H J 

FV (HT, I, 1,J,K)=VL(H7,K)+ (J- 1) /ARJ*DELV (HT, K) 

FV(HT,I,2,J,K)=SL (RT,I,K) + (J- 1 ) /AH J*DELS (RT.I.K) 

CONTINUE 

CONTINUE 

IF (YR. GT. 0. ) GO TO 169 

A=XSTART 

B=XCB ( 1) 

L= 1 

SDH1=FNCTN (A, PIROOT, L, COEFF) +FHCTN (B, PIROOT,L,COEFF) 

CALL SIHPSK (A,B,L,INTGRL,PERCNT,COEFF, PIROOT, SDH 1 , FNCTN) 

INTG RL=INTGRL/ (ABS (CO£PF(2,L) ) *RHB*BHB) * (B-A) 

ICB (1) =INTGRL 
DO 168 N=2,ND 
A=XCB (N- 1) 

B=XCB (N) 

IF (XLIfi (L*2) . GE. B) GO TO 167 
L*L+1 

SOH1 = FNCTH (A , PIROOT, L, COEFF) +FRCTN (B, PIROOT, L, COEFF) 

CALL SIHPSN (A , B , L, ISTGRL, PERCNT, COEFF, PIROOT, S0B1, FNCTN) 
INTGRL*INTGHL/(ABS (COEFF (2, L) ) *RRB*RHB) * (B-A) 

ICB (H) =INTGRL 
LV*2 

IF (NVEDGE (2) . EQ. 0) LV« 1 

CALL CELL (THETAZ, LV, B V, BH, NH, HR, 0. , 0, 0, DELAHG, NHEDGE,XC, IC,ZC, FNB) 
IF (NL.LT. 2) GO TO 170 


RDN3370 

RON3360 

BUN3390 

RUN3400 

RUN3410 

RON3420 

RUN3430 

RUN3440 

RUN3450 

RUN3460 

R0N3470 

RDN3480 

RUN3490 

R0N3500 

FUN3510 

BON3520 

RON3530 

RDN3540 

RUN3550 

RON3560 

ROR3580 
FUN3590 
RUN3600 
RUN3610 
RUK3620 
RUN3630 
R0N3640 
RDN3650 
R0N3660 
BUN3670 
RUN 3 680 
R0N3690 
RUN3700 
R0N3710 
ROK3720 
RUK373C 
ROR3740 
RON3750 
RUN3760 
FDN3770 
FON3780 
RDN3790 
BDN3800 
RON3810 
RON 3 820 
RON3830 
ROB3840 
RON3850 
BON3860 
BOK3870 


R0H3890 
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CALL ZERO (HH,NH,NFA, NCA,NHA, 0, NHEDGE ( 1) , FHB) 

XLB=BB*NFA 

BBB=BH*NCA/flV 

BHB=BH*NHA/BH 

CALL CELL (THETAZ, 1 , BVB,BHB,BW, BH, XLB ,NXA ,0,DELANG, NBEDGE, ZC, TC 
1FHB) 

IF(HL.LT.3) GO TO 170 

CALL ZERO (SB , BH, HFB, HCB , NBB , HXA, K HEDGE (1) , FHB) 

ZLC=XLB+BWB*NFB 
BBC* BBB*NCB/LB 
BBC=BHB*NHB/LB 

CALL CELL (THETAZ, 1 , BBC, BHC,LB, LH, XLC, NXA,HXB, DELANG, NHEDGE, XC, 
1C, FHB) 

170 CALL SBTPCT (1,IXA,RXA,BH,BB, DELANG , XC, TC,FHB ,XLX H, COEFF) 

LEV ( 1) =SBX* 1 

LEV (2) *RBX*1 

IF (NL« LT. 2) GO TO 190 

NI=KXA+1 

KP=”XA«-NXB 

LEV (1)*HI 

CALL SBTBCT (HI , HF, NF, BHB, BBB, DELANG, XC, IC, FHB, XLIB, COEFF) 

IF(HL.LT.3) GO TO 190 

HX=NF+1 

NF-NBX 

LEV (2) *NI 

CALL SBTECT (HI » NF, HP, BBC , BHC , DELANG , XC, TC, FHB, XLIB, COEFF) 

190 FKA=0.0 
B*0 

DO 210 R = 1 , NB X 
NUBCEL (IT ) * 0 

IF (FKB (N) . LE. 0. ) GO TO 210 
B=H* 1 

NOBCEL (S) =S 
FNA=FNA«-?NS (H) 

DTC=BH/2. 

IF (N« G7. NX A) DTC=B HE/2. 

IP(H.GT.KXA«-NX3) DIC=BBC/2. 

TTC=TC (K) + DTC 
DO 200 LA= 1 , 6 

IF (YTC.LE. ELD (LA) ) GO TO 201 

200 CONTINUE 

201 LKB (H) *LBF (LA) 

210 CONTI HOE 

NPX-H 

IF (NPX.GT. LIBIT (4) ) CALL DIAG (4, LIBIT (4) ,NPX) 

220 TIBE=0 
LABGE-0 
SAHP-0 
PKT-0 
HAV-0 
AIKZ-0. 

TI— 1. 

N BAX-0 

DO 250 RT= 1,3 
Cl (HT) -BAND (0) 


EUN3900 
RON3910 
EON3920 
EON3930 
,ZC, EON39UO 
H0N3950 
B0N3960 
RON3970 
EDN3980 
B0H3990 
BON4000 
TC, ZB0N4O 10 
RUN0020 
BUN4030 


BON4040 
RON4050 
RUNU060 
R0N4070 
BON40B0 
BON4090 
BON4 100 
BON4 110 
RCN4 120 
RUN4 130 
R0V4 140 
BUN 4 150 
BDN4160 
RUN4 170 
BON4180 
RON4 190 
RON4200 
RDM4210 


EON4220 

BUN4230 

EON4240 

EON4250 

RON4260 

BON4270 

EON4290 

RON4300 

BDN4310 

BUN4380 

EOH4410 
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IL£: GKBEXT DECK 


PBIBCETOB OBIVERSITI TIRE-SHABIHG STSTEH 


1 


C2(RT)=BAHD(0) 

C3 (HT)»RAKD(0) 

C7(HT)=RAKD(0) 

C8 (HT) *BABD (0) 

D1 (BT)»BAND(0) 

D2 (HT) =RAND (0) 

D3(HT) *B1BD (0) 

Dfl (3T)*RABD(0) 

FI (BT) *0. 

BTI(HT)=0. 

BTB (HT)=0. 

JBT (HT) *0 
RH (HT) *0 
DO 230 H=1,3 
CTI(HT,B) *0. 

CTB(HT,K)=0. 

CHI (KT,K)=0. 

230 CHR (HT»N) *0. 

DO 240 B=1,KD 
DO 240 K=1,BHEDG 
NTS(KT,N,K)=0 
KTSF (MT,N,K) =0 
HTSI (ST/ H, K) =0. 

UTLI (ST/ N/ K) -0 . 

DTTI (HT, N,K) *0. 

TTSI (ST, N , K) =0. 
OTL(HT,H,K)=0. 

OTT (HT, K , K) =0. 

VTS (HT,N,K)=0. 

240 HTS (HT,S,K)=0. 

DO 250 1=1,3 
HTCF (HT, I) =0 
DO 250 L= 1 , 2 
DO 250 K=1 ,3 
DO 250 J=1,HJ 
HTCV (HT,I,L,J,K)=0 
250 COKTIKOE 

DO 245 K=1,HPX 
DO 245 BT= 1, KSP 
NB (HT,N) =0 
HBF (HT, N) =0 
NBS (RT/H) =0 
BBT (HT,H) =0 
DBA (HT,K) =0. 

XT A (HT,K) = 0. 

TVA (HT,H) =0. 

ZVA (HT ,B) =0. 

THPA (HT, K) =0. 

TEPA (HT, N) =0.0 
DO 245 K8= 1, BSP 
T (HT, HH, N) =0.0 
FBD=DDB 
245 COKTIKOE 

DRF=2./(FHD*S*S*RHB*RMB*PI) 
FCr=1. / (rKD*S*RHB»HSB*PI) 


RON4420 

ROK4430 

ROB4440 

ROH4450 

BDB4460 

R0B4470 

RUH4480 

ROK4490 

ROB4500 

B0N4510 

ROH4520 

ROH4530 

RON4540 

ROK4 550 

ROB4560 

ROH4 570 

ROB4 580 

RON4590 

RON4600 

ROB 4 610 

BOB4620 

ROB4630 

BON4640 


ROB4650 
BOB 4 6 60 
B0N4670 
BON4680 

B0K4820 

R0N4830 

R0K4840 

H034850 

RON4860 

R0S4870 

80H4690 

RDB4700 

B0B4710 

ROB4720 

RON4730 

ROB4740 

ROH4750 

RON4760 

R0H4790 


ROB4800 

ROH4930 

ROB4940 
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’M2: GRBEXT DECK 


PRIWCETOF OHIYERSITI TIRE— SHARING SISTER 


R0N496O 

R0N497O 


HTF*.5»DRF/S 
C9=RAFD(0) *RWFH 
LL=FHA/YOL*IHH 
WRITE (6, 2) 

WRITE (6, 6) ({J,L,EKTS (J,L) ,FTH(J,L) ,L«1, FWEDG) ,J 1,RSP) B0K5OOO 

CALL^RINTA (THETAZ ,NVEDGE, TITLE, WARE, XCB,TCB,TB, AL PHI, SIGSA, LD,LF, RDW5010 

1 CAL1 , GAS^HWEDG^THETAZ,D2LAHG,KWEDGE,BTA,C1,DPA,HH,RLD 1 ,I.WP, FNE,DB,KRaN5030 

IB, HBF.LPF, PAD, PAY, PAW , PAX, PAI, PAZ , XLIH ,COEPF, L S, LIRIj. (4) , LIMIT [6) , B0N5O4O 
2LARGE, HHS.SNB, DEBUG (1) , LCOL, NURCEL, RSP, ER, CHI , CHG, CHG, HSP, LB ,N BR, 

3HBN) 

CP0TIR=TFIKD(O) omiSOfiO 

IF (LARGE. WE. 0) GO TO 345 . B0H5O6O 

DO 265 1=1, HSP 

265 IF (NR (I) .GT. NRAX) NKAX=NR (I) 

CALL PRINT3 (FKA, RSP, FHB, LEY, LWF, HR, RLD, XLIH, XC,IC, ZC.NB, NURCEL, LKW 

1. WSP) 

IF (DEB0G (2) ) WRITE (6,1) 

CALL A CCUB (HSC, NPB ,FNB, FB , PAO, PA Y, PAH,2R»THP»TRP »X V, IV , Z Y, LR «SSP, 
1HSP,LPF,N5F,NBK) 

CPA=ELTIHE (0) 

CPI=CPA RIIN5 130 

00 T0 340 BDN5140 

280 TIHE=TIRS+ 1 BDK5140 

235 LARGE=0 

CP 1= EL TIRE (0 ) BUN5170 

AIHE=TIHE*DTS Eun3 1 / U 

IF (DEBUG (1) ) WRITE (6, 33) A IRE, CPC, CPS, CPI, CPB, CPA, (NR (I) ,1=1,3), HR AX 

ssius 

CALL COLIDE (CK ,CR, WT H , DB , DBA , HB, NCOL, LCOL, PAU, P A V, P A H, BR , T , LR, RSP , 

1LI HIT (4) , LI KIT (6) , HURCEL,RTA,PHI,CBI,CH8,NSP,LPF,LKW,N3F,NBR) 522Q 

KRR(1)=0 prtNS230 

RNH (2) =0 BUH5230 

KKM (3) =0 
CPC=£LTI5E (0) 

IF (DEBUG (1) ) WRITE (6, 33) AIRE, CPC, CPS, CPI, CPB , CP A , (HR (I) ,1 = 1 ' n 
CALL BOYE (0 , A KN, RJ , NS, KWEDG, THETAZ, XSTART, LISIT (3) .LIMIT (1 > • -!5 ?Hca 

1(8), LIMIT (9) , DELAKG, W WEDGE, BTA.C2, C3.DFA ,FL, HTI, HTE, JHT, KNH, HR , XCB R 7N3 25 0 

2, XLIH, RS , I WS , NTCF, NTCV,FY,CTI,CTB,CHI,CHR, ALPHA, SIGSA, COEFF, HTS, E. HUH 5260 
3 SI, RTS, HTSF, UTL, UTT, YTS, PAU, PAY, PAW, PAX, PAI , PAZ , LPF, LCOL, TB, HSP, ER 
W.CHI.CKGjCHG.RSP/OTLI, 0TTI,YTSI) 

KRH(1)=KS(D SJIllS 

KRH (2) =KK (2) R0H3Z90 

KHR (3) =HB (3) 

If"(DEB0G ! (1) < ) ) WBITE(6,33) AIRE, CPC. CPH.CPI, CPB, CPA, (MH(I) , 1=1 »**“„ 

CALL FLOW (RWEDG.HNH, LARGE, BTA,C1,C7,C8,D1JD2,D3,D4, DTH , HR, SN,ST, 

1 ETA, LWF, RLD, FTH,EHTS, REMS, SSA.SSB, PAD, PAY, PAW, PAX, PAI, PAZ, LPF , EKT, BUK53 1 0 
2RER, LCOL, HSP, ER, CHI, CHG, CKG, RSP) 

IF (LARGE. KE.O) GO TO 345 HUH5JJ0 

CPB=ELTIHE (0) 
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IL2: G1CB2XT 


PRINCETON DNIYE8SITI TIHE-SHARIHG S7STEB 


IF (DEBUG (1) ) WRITE (6,33) AI32,CPC,CPB,CPI,CPB,CPA, (KB (I) ,1*1 ,3) , HH AX 
CALL HOVE (1, AKN, 3J,HS, NKEDG, THETAZ, XST ART, LIBIT (3) , LIMIT (1) , LI HIT 
1 (8) , LIBIT (9) , DELANG, NKEDGE,BTA,C2,C3,DFA,FL, HTI, HTB, JKT, KKB, HH,XCBBOB5350 
2,XLIH, BS,IKS,NTCF, HTCV,??,CTI,CTB,CHI,CHR, ALPHA, SIGH A, COEFF, HTS, HTROK5360 
3 SI, NTS, KISF, OTL, OTT, VTS, PAD, PA V, PAN, PAX, PAX, PAZ, LPF, LCOL.TB, BSP, EE 
«,CHI,CHG,CHG,NSP,UTLI,OTTI, VT5I) 

DO 330 AT* 1, BSP 
CPB*CPB+ ELTIHE (0) 

IF (DEBOG (1)) KBITS (6, 33) AIBE, CPC, CPE, CPI, CPB,CPA, (HH(I) ,1*1,3) ,HHAX 


GO TO 310 


IKDGE* (TA KG-THETAZ) 


B*0 " 

DO 290 K*1 , HBX 

IF (NUBCEL (H) .EQ. 0) GO TO 290 
B*B* 1 

KB (BT, B) *0 
HBF (KT,H) “0 
290 CONTINOE 
KG*NH (HT) 

K=0 

295 N«N* 1 

IF (N . GT. NG) GO TO 310 
X*PAX(HT,H) 

I* PAT (HT,N) 

Z=PAZ(BT,N) 

R=SQBT (T*T + Z*-Z) 

ARG=T/R 

TANG* 180.* (1.-ABCCOS (ABG)/PI) 

IKDGE=TANG/DELANG (1) • 

IF ( (IKDGE. GE. HKEDGE (1) ) .AND. (DELANG (2) .NE.O.)) IKDGE* (TA KG-TH1 
1/DEL ANG (2) +NHED3E { 1) 

IF (IKDGE.LT. 0) IHDG£=0 
IF (IKDGE. GE. NKEDG) IKDG£=NKEDG- 1 
L= X/B K ♦ 1 . 

IF (L. GT. RK) L=KK 
B=E/BH 

IF (B. GE. NH) B=NH-1 
K= (IKDGE»NH*H) *NK + L 
IF (K. LE. HI A) GO TO 296 

KRITE (6,4 0) L,B,K,ST, N, X,T, NKEDGE, NKEDG , TANG, Z, IKDGE, NB,NK 
IF(DtJSP) CALL ABEND (4) 

STOP 

296 KK=0 

IF (NL.EQ. 1) GO TO 300 
IF (I KDGE. G E. NKEDGE ( 1 ) ) GO TO 300 
IF (FNB (K) . GT. 0. ) GO TO 300 
L* (X— XLB) /BKB* 1. 

IF (L. GT. H tf ) L*3K 
H=R/BHB 

IF(H.GE. HH) B=HH-1 
K= (IKDGE*HH+H) *HK*L*NXA 
IF (K.LE. HXA+NXS) GO TO 297 

WRITE (6, 40 )L,fl,K,ST,H,X,Y, NKEDGE, NKEDG, TANG, Z, IKDGE, HH, HI, NXA 
IF(DDHP) CALL ABEND (5) 

STOP 

297 IF (NL.EQ. 2) GO TO 300 

IF (FNB (K) .GT.O.) GO TO 300 


RUN5410 

R0N5420 

RON5440 

RON5450 

R0N5460 

RON5470 

RDN5480 

RONS490 

BUN5500 

RDN5510 

RON5520 

B0N5530 

RDR5540 

BON5550 

RON5560 

R0N5570 

RON5580 


BUN5600 

BDK5610 

RUN5620 

RON5630 

RUN5640 

B3N5650 

RDN5660 

RUN5670 

R0N5680 

RDH5690 

R0N5700 

RON5710 

R0N5730 

RON5740 

RON5750 

RON5760 

R0K5770 

BON5780 

RON5790 

R0N5800 

RON5810 

R0N5820 

BON5830 

RDN5840 


A-17 



—E: GKBEXT DECK 


1 


PBIHCETON OHIYEBSITT TI HZ- SHARING SISTEH 


L= (X-XLC)/3NC*1. 

IT (L.GT.LS) L=LW 
8*B/BHC 

XT (K. GE. LB) H=LH-1 
K* (IBDGE*LH+K) *L3+L»NX A*HXB 
XT (K.LE, KBX) GO TO 300 

WBITE (6,40)L,H,K,ST,N,X,I, NVEDGE,NH£DG,TANG, 2, IWDGZ,LH,L8, NXA, HX3 
XT(DOHP) CALL ABEND (6) 

STOP 
J00 LA=0 

IT (N0HCEL(K) .EQ. 0) GO TO 306 

301 LA=LA+1 

IT (R.GT. RID (LA) ) GO TO 301 
KB*LVP(LA) 

KKR=LPT(HT,N) 

XT (KB.EQ.KK?) GO TO 305 
IT (KB.LT.KKW) GO TO 302 
H=KB/KKV 
A* HA HD (0) 

B=H 

B* 1 . /B 

IT (A. LT. B) GO TO 305 
306 PAX (HT,N) =?AX (HT,NG) 

PAI(RT,N)=?AX (ST,NG) 

PA 2 (HT,N) =?AZ (ST, NG) 

PA0(HT,N) =PAC (HT,KG) 

PAY { HT , if) =PA V (HT, NG) ' 

PAW(HT,H)=PAV (3T,NG) 

EE (HT,N) =EH (ST, NG) 

LPT (HT ,N) = LPT (ST, NG) 

LCOL (HT,N)=LCOL (HT, KG) 

S=5- 1 

KE (HT)«NH (HT) - 1 
HG=KH (5T) 

GO TO 295 

302 H=KKW/KS— 1 

IT ((NH (HT) +H) .LE.RRE) GO TO 307 
LARGE=3 
GO TO 345 
-07 CONTINOE 

DO 304 L=1,H 
NR (HT) = KH (HT) +1 
HG*NH (HT) 

PAX (HT, NG) =PAX (HT, N) 

PAT (HT, NG) =PAY (HT, K) 

PA2(HT, NG) =PAZ (HT, N) 

PA0(HT,KG)=PAO (HT, N) 

PAY(HT,KG)=?AV (HT, N) 

PAF (HT,NG) =P AB (HT, N) 

EE (KT,NG)=ER (HT,N) 

LCOL (HT, NG)=LCOL (ST,N) - 

-04 LPT (HT,NG) =KW 
305 LPT ( HT, N) = KB 
Q=N0HCEL £K) 

J«HB(HT,Q)+1 


B0K5850 

BON5860 

RDN5870 

BON5880 

B0H589O 

B0N5900 

B0H5910 

BON5920 

B0N5930 

R055940 

B0N596O 
BDN5970 
RON5980 
BDN5990 
B0N6OOO 
BON6010 
EON6020 
R0N6O3O 
BDN6040 
B0N6O5O 
B0N6060 
R0N6O7O 
EOR6080 
EON6090 
E0N6 100 
RDN6110 
B0N6120 

F0N6 130 
R0N6140 
R0N615O 
RUH6 160 
RtJN 6 170 

eun 6 i eo 

ROS6190 

RUN6230 

R0N624O 

BDN6200 

R0K621O 

R0K626O 

R0N627O 

R0N628O 

R0N629O 

R0N63OO 

E0K631O 

B0N632O 

B0H633O 

BON6340 

R0N635O 

B0B636O 
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-ILE: GKBEXT DECK 


A 


PRINCETON UNIVERSITY TIHE-SHABIRG SYSTEH 


* 


i 


IF (J. LE. EKB) GO TO 308 

IF (DE3UG (1) ) NRITE (6,44) HT, K,HNB, AIHE 
300 NB(HT,Q)*J 

RBF (HT,Q)=NBF (HT,Q) «-KB 
LB (N) =Q 
GO TO 295 
310 CONTINUE 

HBB (HT,1)=0 
DO 320 N= 1 , HBZ 
B=NUHCEL (N) 

IF (B. EQ. 0) GO TO 320 
A=NBF (HT,H) 

DB (BT,H)*A*DFA{HT)/FNB(N) 
NBH(HT,H+1)=KBH(BT,H1 ♦HB(ST / H) 

RBH (H)— NBH (NT, H) 

320 CONTINUE 

IF (NN {HTJ . GT. NHAX) NHAX=Nfl[HT) 

DO 325 H=1,NG 


BUN6370 

RUR6400 

RUH6410 

RUN6430 

RUN6450 


RUN6480 

RUN6490 


BUN6500 

BUB6510 


RBN(Q) *NBN (Q) *1 
NA=NBN (Q) 

LH (ET,NA) 


325 

330 


LH (ET,NA)=B 
CONTINUE 

IF (S AHP. LT. ITS) GO TO 335 

CALI ACCUH (NHC,NP8,FNB,NB,PAU,PAY,PAB,ER,THP,TBP,XV,TV,ZV,LS,SSP, 

INSP,LPF,HBP,NBS) 

SA HP— 0 

0 TO 335 

,DEA,HB,NET,XY,TV,ZV,XVA,YVA,ZVA,THP,TKPA,TRP,TBP 

) 


BUNS 520 


335 


340 


CALL ACCUH (NEC,? 
1NSP/LPF/HBF/NBH) 
SAHP=0 
IF (TIHE. LE. TST) GO 
CALL AVRGE (FEB,D3, 
1A,HSP,NSP,RBF,NBS) 
NAY=NAY*1 
CPA=ELTIH£ (0) 
CPI=CPC«-CPH*CPB«-CPA 
CPJ=2.*CPI+5. 
CPUTYH=TFI ND (0) 

i*\ t»n nr x n nT 

IF 

IF (PBT.LT.ITP) 


RUN657 


BUN66C 


0TYH=TFI ND (0) . . , 

(DEBUG (2) ) HBITE (6,33) AISE,C?C,CPE,CPI,CPB,CPA # (NE (I) #1- ' ,3) , N^AX 
{(TIEE.GEiTLIE) . OP.. (CPUTYH. LE. CPJ) ) GO TO 345 
(PBT.LT.ITP) GO TO 280 


RUR6S 

BUNGS 

BUN6C 



RUN 
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"•TIE: GKBEXT DECK 


PHINCETON OHITEBSITT TIHE-SHARING STSTE3 


R0N7O4O 

R0H7O5O 


B0N677O 


7 ,ST,D1,D2,D3,D4,SSA,SSB,3S,FSP,NHB,NHC,HHP,NPB,NRAN,VELR 

B ,IWS,TANGH, XLIH,CO£PP , XCE, IS, TCB, TB, ALPHA, SIGH A, NTS, NTS? RUN7000 

9 ,0TL,0TT,7TS,HTS,HTSI, ENT, SEH, ENTS, BESS, PTH, THETA, DTH,THPAB0N7O 10 

A ,DBA,NB,NBF, NBT ,THP, XT, XV A, TV, TVA,ZV,Z VA,T, DB, FNB, XC, TC, ZCRUN7020 

B ,NUHC£L,PA0,PAV,PAW,PAX,PAT,PAZ,F7,NTC7,NTCF,LPF,LCOL,LH R0N7O3O 

C, ETA ,PBX,CHI,CK,CR ,CNG ,C3G ,CN8 , TRP , TBPA , THETAZ , N VSDG E, HSP, ANGLE, TP 

D, UTLI, UTTI , VTSI , EB , RHB ,LKW, NB5, LB, NBH,NBN 
REWIND 9 
WRITE (6,50) 

355 CONTIRUE 

IF (TIHE.LE.TST) GO TO 350 
DT=AI3E-TI 

CALI PRINT 1 (DT, COSING, SI HANG, BSA, RNU , DRF,FCP, HTP.FL, HTI, HTB, CTI, 

1CTR, CHI, CM R) 

CALL PRINT 2 (AKN , XSTART ,DT , RNU , BRA , OFF, FCF, HTF, UTLI , OTTI, 7TSI,HTSI, 
1DELANG, HWEDGE, IS , X CB, TCB , HTS , NTS, NTSF, tJTL, UTT, VTS,LIHIT(3) , 

2LIHIT (1) , HSP) 

IF (NS. HE, 0) CALL PEINT3 ( HSP, 3J, NS, NWEDG, LIHIT (3) ,LIHIT { 1) , 

1 LI HIT (8) ,LI3IT (9) , RHA,XS,IWS,3S, TANGN,NTSF, NTCF,NTC7, FT) 

CALL PRINT 4 (HSP, CHI, P.NO, NSP, TP. PA, NCHCEL, FDN, VTH,DBA, NBS,THPA,X7A, 

1 T7A, Z7A, 1, HBT, XC , ?C , ZC ,LEV ,LKH) 

GO TO 353 BON6860 

350 CONTINUE 

CALL PRINT4 (HS?,CRI , END, NS ?, TP.P, NOSCEL, FDN, HTH , DB, NB ,THP , X7, T7,Z7, 

10, NBF, XC, TC, ZC, LEV , LKW ) 

353 IP (DEBUG (2)) WRITE (6,1) • 

IF ( (TIKE.LT. TLIK) . AND. (CPtJTTH , GT. CP J) ) GO TO 2 80 
IF (IC.E2.ICOPT) EETUEN 

IC=IC+1 BUN7080 

WRITE (6,2) 

WRITE (6, «) 

WRITE (6,5) ( { (I, J,L, (EKT (I , J, K, L) , K=1 , 6) ,1=1, NWEDG) , J = 1 , HSP) , 1= 1 , 2) 

WRITE (6,6) ( (J ,L, ENTS (J,L) , FTR (J,L) ,L=1, NWEDG) ,J=1,KSP) 

WRITE (6,2) RUN7120 

WRITE (6,3) IC BUN7130 

CALL PRINT A (THETAZ,NV EDGE, TITLE, HARE, XCB, TCB, TB, ALPHA, SIGH A, LD,LP, EON7140 
1XLIH,COE?P,LIKIT,HSP) 

CALL PRINTS (FN A, HS P , FNB, LET, L WF , N3 ,RLD, XLIH, IC , TC, ZC ,N B, NUHCEL,LKi 
1, HSP) 

SA7E=. FALSE. BUK7180 

GO TO 345 RUN7190 

360 WRITE (6,38) (DBG1 (I , LARGE) ,1=1 ,3) R0N72OO 

IF (REDO) GO TO 364 

IF (DORP) CALI ABEND (9) BOK7220 

STOP BUH7230 

364 CONTINUE 

IF (NEW) GO TO 365 

READ (9) DENF ,U,XREF,TEF, KAWLS, NL, NW, NH,HW, HH, LW, LB,N XA, NIB ,KCA 


1 

2 

3 

4 

5 

6 
7 


, NCB, NFA ,XFB, KHA, NHB ,SW,BH,BWB,BRB,BBC,8BC,XL5,XLC,PX, NBSG 
,S , SINANG, COSANG , AKR , NBX, RH , XB , ND, 7I3E, DTH, TI, ITS, ITP, TST 
,TLIH, RHA,RNU,DIB, XSTAET, JNH, HHB,3XB,TR, BZC,CN7, DBF, FCF 
,FNA, HTF ,IHH ,ITTPE, JTTPE, HJ, NAT, NHAX, NS, NWEDG, PBT, SAHP 
,BTA,C1,C2,C3,C7,C8, DAH , DFA, FL,DELANG, FDN, HTI, HTR, JNT, KHH 
,NH, WTH, C4 , YBH, NCOL, LD,LF, LWF, RLD,CTI, CTR, CNI, CNB, LEV, SH 
,ST,D1,D2,D3,D4,SSA,SSB,HS,NSP,NHB,NHC,NMP,NPS,NRAH,7ELB 
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ILE: GKBEXT DECK 1 


PRINCETON UNIVERSITY TIHE-SHARING SYSTEH 




8 # IWS,TANGB,XLIR,COEFF,XCB,XS,TCB,TB,ALPHA,SIGBA,KTS,KTSP 

9 ,0T1,UTT, VTS, HTS, BTSI , ENT, RER, ENTS, REH S, FTH, THETA, DTH,THPA 

A ,DBA,NB,NBF,NBT,THP,XV,XVA,YV,YVA,ZV,ZVA,T,DB,FNB,XC,YC,ZC 

B ,H0HCEL,PAU,PAV,PAW,PAX,?1T,PAZ,PV,HTCV,NTCF,LPF,LC0L,LH 

C, ETA,PHI,CHI,CB,CR,CNG,CHG,CN8,TBP,TBPA,TRETAZ,NWEDG£,BSP, ANGLE, TF 

D, UT1I,UTTI,VTSI,BR,RHB,LKW, NBS,1B,NBH,NBN 
REWIND 9 

365 JNH=9*JBS/10 
AHtt-XNB 
INB=9*ANS/10 
DDN=.9*DDN 
DRF=DRF/.9 
FCF=FCF/.9 
HTF=HTF/.9 

DO 370 HH=1,HSP 

FDK (HS) =FDN (BB) *INH/ANH 

DO 366 KR= 1 , BSP 

366 CN8 (KK,HH) =CN8 (KK, HH) *.9 
DO 370 LT=1,NVEDG 

ENTS (BB, LT) =ENTS (BB, LT) *1 NS/A NS 
REHS (BB, LT)=0.0 
DO 370 NK= 1 , 2 
DO 370 NJ=1 , 6 

ENT (NK,HH, NJ, LT) = ENT (NK, BB, HJ, LT) *IHB/AKB 
370 REH (NK,HB, KJ,LT) =0. 0 

IF (NEW) GO TO 220 • 

TST=TIHE+TST 


RUN7260 


TI= - 1 . 


PBT=ITP 
WRITE (6, 2) 

WRITE (6,4) „ . „ 

WRITE (6,5) ( ( (I, J,L, (ENT (I, J, K,L) ,K=1,6) ,1*1, HWEDS) ,J=1 ,BSP) ,1=1,2) 
WRITE (6, 6) ( ( J, L, ENTS ( J , L) , FT H ( J , I) , 1= 1 , NWEDG) ,J = 1,SSP) 

WRITE (6,2) 

IF((LABGE.EQ.2) .OR. (LARGE. EQ. 3) ) GO TO 260 
REDO*. FALSE. 

GO TO 360 
END 


RUN74 10 


SUBROUTINE DIAG (N, ITEST , NUB) 
RE AL*8 PABAH(IO)/' NWEDGE' , • 
1 HNH • , * BNB' , ' NBX* , * 


DIAG010 


NBEG * , * 
NS' 


ND',' 
HJ*, • 


NPX* ,' 

asp'/ 


FOBSATS 

32 FORBAT (9X, 'ENT, REH, ENTS, REKS,FTH, THETA, DTH*) 

42 FOBHAT (///5X, 43H ABEAY DIBEKSIONS ARE ABOUT TO BE VIOLATED./) 
44 FOBHAT (5X, 18H BA XI BUB VALUE IS I5,20H, WHEREAS YOU INPUT 15, 3H 
1A8 1R1) 

56 FORBAT (/5X,78H IF YOU DESIRE TO USE THIS VALUE, THE FOLLOWING 
ITS HOST BE RE-DIHENSIONED./) 

62 FORBAT (9X, • HTS, HTSI , NTS, NTSF,UTL,OTT, VTS •) 

64 FOBHAT (9X, ' XLIH, COEFF ' //1 1 X, ' NOTE THAT THE ILIH ARRAY HOST BE 


DIAG040 
•DIAG050 
DIAG060 
DIAG070 
DIAG080 
DIAG090 
DIAG 100 
> DIAG1 10 
DIAG 120 
ARBADIAG 130 
DIAG 140 
DIAG150 
DXHEDXAG 160 


( 
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FILE: GKBEXT DECK 


A 


PRINCETON ONIYERSITT TIME-SHARING SISTER 


1HSIONED TO 3 ROBE THAN THE COEPP ARRAY. •) 

66 FORMAT (91, 'XCB,XS,YCB,TB, ALPHA, SIGMA') 

6 8 FORMAT (9X, • DBA , NB, NBP, N3T, TMP, TMPA.XY, XYA, IY, YYA.ZY, ZVA.T, DB •) 
70 FORMAT (9X, ’LP?,PAO,PAY,PAW,PAX,PAY,PAZ,LCOL*) 

72 FORMAT (8X,3H LH) 

74 FORMAT (//5I,76H IF TOD CHANGE THE ARRAY DIMENSIONS, ALSO CHANGE 
IE ’LIMIT* DATA STATEMENT.) 

75 FORMAT (91, ’ALL ARRAYS ASSOCIATED WITH SPECIES') 

7 6 FORMAT (9X,*FNB,XC, TC,ZC,NOHCEL') 

78 FORMAT (9X, ’PV, NTCY, NTCF, NS , I WS, SL,DELS,TANGN * ) 

80 FORMAT (9 X,'FY, NTCY* ) 


WRITE (6, 42) 

WRITE (6, Utt) ITEST ,N0M,PARAH (N) 
WRITE (6, 56) 

GOTO (1,2,3,5,5,6,7,8,9.10) ,N 

1 WRITS (6, 62) 

WRITE (6,32) 

GO TO 11 

2 WHITE (6, 64) 

GO TO 11 

3 WRITE (6, 66) 

WRITS (6,62) 

GO TO 11 

4 WRITE £6, 68) 

GO TO 11 

5 WRITE (6, 70) 

GO TO 11 

6 WRIT E (6, 72) 

GO TO 11 

7 WRITE (6,76) 

GO TO 11 

8 WRITE (6,78) 

GO TO 11 

9 WRITE (6, 80) 

GO TO 11 

I 0 WRITE (6,75) . 

II WRITE (6, 7«) 

STOP 

END 


DIAG170 

DIAG180 

DIAG190 

DIAG200 

DXAG210 

THDIAG220 

DIAG230 

DIAG240 
DIAG250 
DIAG260 
DIAG270 
— DIAG280 
DIAG290 
DIAG300 
DIAG310 
DIAG320 

DIAG340 

DIAG350 

DIAG370 

DIAG390 

DIAG400 

DIAG420 

DIAG440 

DIAG460 

DIAG480 

DIAG500 

DIAG520 


DIAG540 

DIAG550 


SDBRODTINE PRINTA (TEETAZ, NWEDGE, TITLE, NAME, XCB , YCB ,TB, ALPHA, SIGMA , PRA00 1 0 


1LD.LF, XLIH.COSFF, LIMIT, MSP) 

INTEGER TST,TLIH,TIHE PRA0030 

LOGICAL SAVE, NEW PRA0040 

DIMENSION NWEDGE (2) .LIMIT (1) .TITLE (6) .NAME (2) , XCB(1) , YCB (1) ,TB (1) 
DIMENSION ALPHA (3, 1) .SIGMA (3, 1) ,LD (1) , LF (1) ,XLI5 (1) ,C0EFF(4, 1) PRA0060 

DIMENSION RNO (3) , RHA (3) ,CHI(3) ,DIB (3,3) ,PHI (3,3) , ETA (3,3) 

DIMENSION WTB (3) ,DAM (3,3) ,YELS (3) ,XSP{3) 

COMMON /FIBST/NL,NW,NH,HW,MH,LW,LH,NXA,HXB,'NCA,NCB,NFA,NFB,HHA,NHBPRA0070 
COMMON /SECND/BV.BB PBA0080 

COMMON /THIRD/PI, NREG.S.SINAHG, COSANG, AKH PBA0090 

COMMON /FI FTH/ND, TIME, DTM, TI, ITS, ITP.TST, TLIH, RHA, BHD, DIR PRA0 100 
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FILE: GKBEXT DECK 


A 


PRINCETON DNIVERSITT TINE-SHARING STSTEH 


COHHOS /SIXTH/BHB, XSTAF.T, J NR, HNH, HNB, NEW, SAVE, PERCBT, NSR, TR PRA0110 

COHHOH/EIGTH/DENF,U,TF, ANGLE, TRF, CHI, PHI, ETA, NTH, DAH, VELB, XBEF 

DATA NOT/* NOT '/ PRA0120 

PRA0130 

PRA0140 

PRA0150 

FORSATS *. PBA0160 

PBA0170 

1 FORHAT (161,40 ('-') ,T74, 'I '//9X, 1 3-D* ,12, ’-FLUID PBOGBAH - ') 

2 FORHAT (•*• ,31X,A4) PRA0190 

3 FORHAT (' ,35X, 'A RESTART OF A PREVIOUS RON* ,T74, » I '/I 2X,2PBA0200 

1A4,» - ' ,6 A4, • - ',12,' REGIONS', T7«,'I*. 16 (/T74,'I») ) PBA0210 

4 FORHAT (7X, 'FRONT OF BODT *',E12.4,* XSTART HAX HEIGHT =',£12.4,' 

1BHB' ,T74, • I'/7X, * X-LIBIT* ,T37, 'BODI COEFFICIENTS' ,T74, *1 •) 

6 FORHAT (5F14.6,3X,'I*) PRA0240 

10 FOBH AT (IX, 72 ('-')) • ‘ PRA0250 

12 FORHAT (//14X, • PARAHETERS OF SEGHENTS FOR BODI COLLISIONS' ,T96, * I'/ 

18X, 'I-COORD. TEH P. ALPHA1 ALP HA 2 ALPHA3 SIGHA1 SIGHA2 
2 SIGHA3 AREAS', T96, 'I') 

14 FORHAT (4X,E12.4,7F9.4,E12.4,T96,'I') 

16 FORHAT (23X,' WEIGHTING FACTORS '/IX, 1016, T96, 'I') 

17 FORHAT (///25X, 'ARP.AT STORAGE DSED'/5X,I6,' *• , 10I6,T96, • I* ) 

18 FORHAT (1H1/17X,' LENGTH OF CELL IN RE AN-FREE- PATHS * ',F12.4, • BB' 

A,T76, * I • 

1/17X, ' HEIGHT OF CELL IN REAN-PREE- PATHS « ',F12.4,' BH',T76,'I' 

2/16X, • RUBBER OF LI ■ CELLS ALONG FLOW AXIS *',113,' NB',T76,'I' 

3/171,' NUHBER OF LI CELLS IN RADIAL DIR- =',113,' NH',T76,'I' 

4/21X, 'NUHBER OF LEVELS OF CELL SITE =',113,' NL',T76, 'I') 

20 FOBH AT (1 1 1 , ' NDHBER OF LI CELLS IN FRONT OF L2 CELLS =',113,' NFA' 

1,T76, 'I'/15X, 'BOMBER OF AXIAL SUBDIVIDED LI CELLS =',113,' NCA',T 
276, 'I'/14X, 'NDHBER OF RADIAL SUBDIVIDED LI CELLS =',113,' NHA ' ,T7 
36,'I'/16X, 'NCHBER OF L2 CELLS ALONG FLOW AIIS =',113,' HW',T76,'I 

4 */17X , * NUHBER OF L2 CELLS IN RADIAL DIR. =',113,' HH',T76,'I') 

22 FORHAT {11X,'Nr , H3EB OP L2 CELLS IN FRONT OF L3 CELLS *',113,' NFB' 

1,T76,'I'/15I, 'NDHBER OF AXIAL SUBDIVIDED L2 CELLS =',113,' NCB',T 
276, 'I'/14X, • NDHBER OF BADIAL SUBDIVIDED L2 CELLS =',113,' NHB ' ,T7 
36, 'I'/16X, ' NUHBER OF L3 CELLS ALONG FLOW AXIS =',113,' LW',T76,'I 

4'/17X, 'NUHBER OF L3 CELLS IN RADIAL DIR. =',113,' LH',T76,'I') 

23 FORHAT (3X, • NUH5EE OF AZIHUTHAL WEDGES IN LOWER ',13,' DEGREES =',IPEA0470 
113,' NSEDGE1 I'/3X, • NDHBER OF AZIHUTHAL WEDGES IN UPPER ',13,' DE 
2GREES =',113,' NWEDGE2 I'/) 

24 FORHAT (161, 'BASIC TI3E INTER. VAL FOR COLLISIONS =',E13. 4,' DTH 

1 I'/8X, » TIRE INTERVAL FOR SAHPLIFG FLOW FIELD INFO =',E13.4,' DTS 

2 I '/24X, ' TIHE INTERVAL FOB PRINTING =',E13.4,' DTP I'/9X, 

3'TIHE TO STEADI-STATE CONDITIONS (ASSURED) = ',E13.4,« TST XV 

4191, 'TIHE AT WHICH RUN IS TERHINAT2D =',£13.4,' TLIH I'/) 

26 FORHAT (9X, 'INITIAL NUHBER OF HOLECDLES - EITHER TTPE =',113,' INH 

1 I » /9X, ' HAXIHUH NUHBER OF BOLECULES - EITHER TTPE *',113,' AN 

2R I' /I I, ' HAX NDHBER OF HOLECULES IN ANT CELL-- EITHER TTPE *',PBA0570. 

3113,' HFB I') 

27 FORHAT (//22X,* VELOCITT OF FREE STREAH FLOW *',£13.4,' U',T76,«I'/1 

19X,' SPEED RATIO OF FREE STREAH FLOW *',£13.4,' S* ,T76, 'I V>91, ' HAC 
AH NUHBER OF FREE STREAH FLOW = ',E13.4, • H' ,T76, • I'/19X, • SPECIFIC H 
BEAT RATIO (CALCULATED) = *, E13 .4 , • GAHHA' ,T76,'I’/ 35X,'ANG 

2LE OF ATTACK =',F13. 4,' ANGLE I */16X, 'NUHBER DENSITT OF FREE ST 
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_ . pbiicetoh OHIVBBSITT TIRE-SH AS IBS SISTER 

„E: GKBEXT DECK 1 

. r iviti.^o«= iiK •«»«* « ««*“ ‘ bo,e '•• 3r ' 3 

28 6 f5bRX^{// 10I. • EEEEBEHCE ”gJ*i?™6X^TEHP^ 

s^nscsra !■ fer- ,s ° I,TI0, ‘ L „ 

3 PHI* ,T90, 'I’/3 (F12.4,5X,3P12. 6,T90, I /) 1 PBA0670 

29 FOBHAT (9X, 'Dili Sl *J® T* ? lpr=D =',E13.4,' TELH* ,T76 , • I */20Z, • SP 
' 30 POBRIT (//3 IX , ' BEF BOLECOLAB SP-- t76 , ' I* /HI, 3E 16 . 6 ,T76 , • !• /26X 

1ECIES FEEE STP.EAH S0 ^ E ^“: E _f , IEEF*,T76, *1 '/26X, ' SPECIES 5 
2, « BEFEBESCE E * EE r wiSl’3E16 IX , • LONGITUDINAL KSTJDS 

3 EAR FBEE P^ HS ' ' T76 lir{ • IKK* T76. *1 */13X, •TBAHSTEBSE KKUD 

4ZK HUHBER (CALCULATED) E 13. # AW , T7b, A / • , 

5SEH HUHBEB (CALCULATED)* ,E13.4, AKi «- , PKA0680 

. PBA0700 

IAEBAT*708*LIHIT (3) * ^♦56*LIHIT (1] )] % 0*LI RIT(7* S *LI»PBA0720 
1IHIT (6) ) ♦56*LIHIT (5) ♦ LI HIT (8) * (6S+96*LIBI. (’) ux PBA0730 

2 IT (1) 

BBITE (6, 1) RSP PBA0750 

IF(HEB) BBITE (6 , 2) SOT . PBA0760 

BBITE (6, 3) SAKE, TITLE, HBEG PEA0770 

BBITE (6,4) XSTABT,BSB • PBA0780 

DO 100 1=1, SEEG PRA0790 

100 BBITE (6,6) XL-IE (I ♦2) , (COEFF (0,1) ,0=1,4) PBA0800 

WRITE (6, 1 0) PRA0810 

BBITE (6, 12) PHAO 8 20 

no Siii(6^5i”e«m.»a).(»«»M0.i). *•’•’>> « S ““ <J>11 ' ,cs 

\ (X) PBA0850 

BBITE (6, 1 0) , , PR AO 860 

BBITE (6, 16) (U> (H) / • 5,-1 ' , ... 

BBITE (6, 17) I ARE AT, (LI SIT (I) ,1=1, 10) PRA088 0 

BBITE (6, 18)38, 3H, NS, NS, HL PEA0390 

IF(SL.GT.I) BF.ITZ (6,20) H? A , KCA , 5 H A , H B, HH PBA0900 

IF (SL. GT. 2) BEITE (6,22) NFB, SCB, SEB, LB , LH PRA0910 

IETAZ^THETAZ PBA0920 

BBITE~(6!23HETA2,NWEDGE(1) , JETAZ, H8EDGE (2) PBA0940 

DTS=DTB*ITS PBA0950 

DTP=DTH*ITP PBA0960 

AST=DTH*TST PBA0970 

ALIH=DTH*TLIH 
CHT=0. 0 

DO 120 J=1 ,RSP 
120 CHT=CHT+CHI(J) *P.N0 (J) 

GASR A= (7. ♦ 2. *CHT) / (5. ♦2.*CHT) 

Afl=S*SQRT (2./GAHSA) PBA0980 

BBITE (6, 24) DTK , DTS, DTP , AST, ALXH 

' (.nm.i-i.J) . <*»»(» .i*>' 3 

"lEIIEIS.Ze) 
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TILE: GKBEXT DECK ■ A 


PRINCETON ONIVERSITT TIRE-SHARING SISTER 


1 (PHI (I,K) ,K=1,3) ,1=1,3) 

DO 210 1=1,3 
VELS (I) =0- 0 
210 XSP(I)=0.0 

DO 220 J=1 , HSP 
VELS(J)*VELR/SQRT(WTH(J)) 

XT=0 . 0 

DO 215 H= 1 , HSP 

215 XT=XT+EH0 (R) *D1B (J,H) *SQRT ( 1 . +WTH (J) /WTH (R) ) 

220 XSP(J)=1.414214*IREF/XT 
AKT= 1. /R3B 

WRITE (6, 30) VELR, (VELS (I) , 1= 1 , 3) , XREE, (XSP (I) , 1= 1, 3) ,AKN, AKT 
IP (SAVE) WRITE (6, 29) 

RETURN 

END 


PRA1040 
PRA 1050 
PRA1060 


SUBROUTINE PRINTB (FN A, BSP, PNB, L£V,LWF, NH,RLD,XLIH, XC, YC, ZC,NB, 

1 NUBCEL , LKW ,N) 

INTEGEB*2 LKW , NB, NUBCEL 

DIMENSION FNB (1) , LEV (1) ,LSF(1) ,NS (1) , RLD (1) ,XLI3 (1) , XC (1) 

DIMENSION TC (1) ,ZC (1) , NB (H, 1) , NUBCEL ( 1) , LKW (1) 

COMMON /FIRST/NL PRB0050 

COMMON /THIRD/PI, NRB3, S, SINANG, COSANG, AKN PRB0060 

COMMON /FORTH/NBX PRB0070 

1 PORHAT (1 HI ) * PRB0080 

2 PCRBAT (2X, * CELL GEOMETRY PRB0090 

1 i/2X, 'BOX LEVEL ’ POSITION OF CENTER VOLUBE WPRB0100 

2EIGHTING POPULATION '/2X, ' NUB . • , 1 21, • X* ,7X, ' T THETA •, 12X, *FACTOPRBO 1 1 0 
3R • , 1 5X , ' CELL**) 

3 FORMAT (IX, 14,15, 3X,2F8. 3, F7. 1 , El 2. 3, 2X ,12, 4X, 315, 31, 14 ) 

4 FORHAT (2 X, • TOTALS • ,E 12. 4 ,8X, 315) 

WRITE (6,1) PRB0150 

WRITE (6,2) 

DO 200 1=1, NBX PRB0170 

IF (NUBCEL (I) .EQ.O) GO TO 200 

X= (XC (I) -XLIH (2) ) * AKN PRB0180 

Y=TC (I) * AKN PBB0190 

LEVEL=1 PRB0200 

IP (NL. LT. 2) GO TO 120 PRB0210 

IF (I. LT. LEV ( 1 ) ) GO TO 120 PBB0220 

LEVEL=2 PRB0230 

IF (NL.LT. 3) GO TO 120 PRB0240 

IP (I. LT. LEV (2) ) GOTO 120 PRB0250 

LEVEL* 3 PR30260 

120 CONTINUE 

J=NUMCEL(I) PHB0320 

H1=NB(1,J) 

H2=0 

IP (MSP.G E. 2) B2=NB(2,J) 

H3*0 

IP (HSP.GE. 3) B3=NB(3,J) 

140 WRITE (6, 3) I, LEVEL, X, T,2C (I),PNB(I) , LKW ( J) , HI , 32, H3, J 

200 CONTINUE PBB0370 

NR 2= 0 

IF (HSP.GE. 2) NM2=NH (2) 
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GKBEIT DECK 


1 


PRINCETON UNIYERSITT TIHE— SHARING SISTEH 


ILE: 


HH3=0 

IF (HSP.GE. 3) NH3=SH(3) 

HRITE (6,4) PNA, NH (1) ,NH2, HR3 

RETURN 

EKD 


PRB0390 

PRB0U00 


SUBROUTINE SIHPSK ( A, B, L, IKTGRL, PEBCNT, COEFF, PI ROOT, SOS 1, FUN) 
REAL I NT GEL 
DIHENSIOK COEFF (4, 1) 


SIHP010 

SIHP020 

SIHP030 

■SIHP040 


THE PURPOSE OF THIS SUBROUTINE IS TO PERFORH A SIHPSON'S ROLE 
INTEGRATION. 

FORHAT 

4 FORHAT (/30H TOO SANT ITERATIONS. TEST IS E15.7,14H, INTEGRAL IS E 
15.7, 14H IS THE RANGE E1S.7,4H TO E15.7) 


SISP050 

SIHP060 

SIHP070 

SIHP080 

SIHP090 

SIHP100 

1SIHP no 
SIBP120 
SIHP130 

-SIHP 1«0 


PREY*0.0 

N=4 

Nl*3 

G*. 5* (B-A) +A 

SUH£=FDK (G,PIROCT, L, COEFF) 

SUSO=0 .0 
K=0 

235 SU«E=SUEE+SUSO 
H 1=N 1 ♦ K 
K*N1 ♦ 1 

IF (K.LT. 5000) GO TO 237 
HE ITE (6,4) TEST , PREY , A , B 
STOP 

237 SOHO=0 . 0 

DO 240 1*1, N1, 2 
G= (I* (B-A) )/K*A 

24 0 SoHO-=SOHO + ?UN (G, PI ROOT, L, COEFF) 

INTGRL* (S0E1+4. *SUHO*2. *SUHE) / (3. *E) 
TEST=ABS (2.-4. *?BEV/ (I HTGRL+ PREY) ) 
PREV=INTGEL 

IF (TEST. GT. PERCRT) GO TO 235 

RETURN 

END 


SIHP 150 
SIHP 160 
SIHP 170 
SIHP 180 
SIMP190 
SIHP200 
SIHP 2 1 0 
SISP220 
SIHP230 
SIHP2U0 
SIHP 250 
SIHP260 
SIHP 27 0 
SIHP 280 
SIHP290 
SIHP300 
SIHP310 
SIRP320 
SIHP330 
SIHP 340 
SIHP350 
SIHP360 
SIHP370 


FUNCTION FNCTN (X, PIBOOT , L, COEFF) 
DIHENSIOK COEFF (4,1) 


THE PURPOSE OF THIS FUNCTION IS TO EVALUATE 
THE SIHPSOH-S RULE INTEGRATION ROUTINE. 


A*COEFF ( 1, L) 

B*COEFF (2, L) 

C*COEFF (3, L) 

D* COEFF (4, L) 

A A *4 . * (A-B) * (A*X+C) *X*C»C-4.*3*D 


FNCN010 

FNCN020 

FNCN030 

THE INTEGRAND USED INFHCN040 

FNCN050 

— F NCK 0 6 0 

FNCN070 
FHCN080 
FNCN090 
FHCN100 
FICN 1 1 0 


ILE: GKBEXT DECK 


A 


PRINCETON UNIVERSITX TIHE-SHARIHG STSTEH 


IF(AA.LT.O.) AA=0. 
FNCTN*SQRT (AA) 
RETURN 
END 


FNCN120 

FNCN130 

FHCN140 

FNCN1S0 


SUBROUTINE HEIGHT (X,R, L, COEFF, I) HGHT010 

DIMENSION ..rEFF (4, 1) ,DBG2 (2,3) HGRT020 

DATA DBG 2/' Sb'.R ' , * CT ' , ' GAS RDF* , * •/ HGHT030 

HGHT04 0 

THE PURPOSE OF THIS SUBROUTINE IS TO COHPUTE THE R-COORDINATE OF HGHT050 
THE BODT CURVE AT ANT GIVEN X-COORDIN ATE, IN THE X-R PLANE. HGHT060 


2 FORMAT (//' MESSAGE • ,I2,E17. 8, 3X,2A4) 

ABG=-( (COEF? (1,L) *X«-COEFF (3, L) ) *I+COEFF («,L) ) /COEFF (2, I) 

IF (ARG. GE. 0. ) GO TO 100 

WRITE (6, 2) L, X, (DBG 2 (H, 1} ,H=1 ,2) 

ARG=0. 

100 R=SQRT (ARG) 

RETURN 

END 


BGHT060 

HGBT090 

HGHT100 

HGHT110 

HGHT120 

BGHT130 

HGHT140 

HGHT150 


FUNCTION FNCTB (ARG, PIROOT,!, COEFF) PHCH010 
DIMENSION COEFF (4,1) FNCH020 
D*0. FNCB030 
IF (ABS (ARG) .LT. 10.) D=EXP (-ARG*ARG) /PIROOT FHCN040 
E=0. FNCB050 
IF (ARG. GT. -10.) E=ARG*ERRF (ARG) • FBCB060 
TEB=. 5* (D*£) FNCH070 
FNCT B=TEH FHCB080 
RETURN FNCB090 
ERD FHCB100 


SUBROUTINE CELL (TH , LEV , A , B , K, KH, XO, I , J, DELAKG, NH EDGE, XC, TC , ZC, FNB) CELLO 10 
DIBENSION DELANG (1) , NSEDGE (1) , XC(1) , TC (1) , ZC (1) ,?NB(1> CELL020 

CO EBON /THIRD/PI CELL 030 

— CELL040 

CELL050 

THE PURPOSE OF THIS SUBROUTINE IS TO 


2 . 


COMPUTE THE VOLUME OF EACH CELL (ALL 3 POSSIBLE LEVELS) 
AND STORE THE RESULT IN THE ARRAT CALLED •FNB'. 

COHPUTE TRE X, R, AND THETA COORDINATES OF THE CENTER OF 
EACH CELL (ALL 3 POSSIBLE LEVELS) AND STORE THE RESULTS 
ARRATS CALLED 'XC*, 'TC*, AND 'ZC‘. 


INDEX*!* J 
ZO=0. 

DO 120 NT* 1, LEV 
ICNT-RiEDGE(BT) 
ANGLE S DELANG (BT) 
PACTOB*ANGLE/1 80. *PI*B*B*A 
Z=ZO-« 5*ANGLE 
DO 110 L*1,ICRT 
Z*Z*ANGLE 
T=-.5*B 


CELL060 
CELL070 
CELL080 
CELL090 
INCELL100 
CELL 110 
CELL 120 
— CELL130 
CELL 140 
CELL150 
CELL 160 
CELL170 
CELL 180 
CELL190 
CELL200 
CELL210 
CELL220 
CELL230 
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GKBEXT DECK 1 


PRINCETON UNIVERSITY TIRE— SHARING STSTEH 


DO 110 N=1,KB 

X*XO-.5*A 

Y=Y*B 

~ DO 110 H*1,K 
X=I+A 

INDEX=INDEX* 1 
XC (INDEX) =X 
TC (INDEX) *T 
ZC (INDEX ) -Z 

“110 FNB (INDEX) =FACTOR* (2*N-1) 
ZO=TH 

120 CONTINUE 
RETURN 
END 


CELL240 
CELL250 
CELL260 
CELL270 
CELL280 
CELL290 
CELL300 
CELL310 
CELL320 
CELL 330 
CELL340 
CELL350 
CELL360 
CELL370 


SUBROUTINE ZEEO{HVIDE, NHI , NBES; NLONG, HOP, N AREA, ICNT, FNB) ZEBOOIO 

DISENSIOH f NB ( 1) ZER0020 



ZEROOU 0 

THIS SUBROUTINE SETS THE SIZES TC ZERO OF THOSE CEILS SHICH ABE ZER0050 

TO BE SUBDIVIDED INTO SR AlLER CELLS. ZEB0060 

ZER0070 

NGO=KBEG+ 1 ' ZEK0090 

NSTOP=NSEG*NLONG ZER0100 

DO 1 10- N=NGO, NSTOP • ZERO110 

DO 110 R=1,3UP ZE30120 

DO 110 L=1,ICNT ZERO 1 30 

INDEX=NWIDE= (NHI* (L-1) *5-1) *N*HAEEA ZER0140 

110 FNB(INDEI) =0.0 ZER0 150 

BE TURN ZERO 160 

ZJtn ZEBO170 


SUBROUTINE SBTRCT ( SGO, NTEHP, NSTOP, BVI DTH, BHITE, DEL AS G, XC.YC, 
1IH,COEFF) 

DIHENSIOS DELANG (1) ,XC (1) ,TC (1) ,PNB (1) ,XLIE (1) .COEFF (4,1) 
CORSON /THIRD/PI, NEEG 


THIS SUBROUTINE SUBTRACTS FBOS EACH CELL SIZE ( ' FNB ' AREA T) 
PORTION OCCUPIED BT THE BODT. 


FACTOR=PI*DELANG (1)/180. 

DO 150 N=NGO, NSTOP 

IF (FNB (N) . LE. 0. ) GO TO 150 

DFNB=.005*FHB (N) 

SLICE=.01»BWIDTH 

IF (N.GT. NTEEP) FACTOR=?I*DELANG (2) /180. 

X«XC (N) -.5 • (BNIDTB *SLICE) 

TBOT=TC(N)-.5*8HITE 

TTOP*TBOT*BHIT.E 

DO 130 a«1,100 

X= I* SLICE 

IF (X.LZ. XLIH (2) ) GO TO 130 


FNB, XLSBCT01 0 
S3CT020 
S3CT030 
S3CTOU0 

S3CT050 

S3CT060 
THAT SBCT070 
S3CT080 
SBCT090 

SBCT100 

S3CT110 

S3CT120 

SBCT130 

SBCT140 

SBCT150 

SBCT160 

SBCT170 

SBCT180 

SBCT190 

SBCT200 

SBCT210 

SBCT220 
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A 


PRINCETON UNIVERSITY TIME-SHARING SYSTEM 


DO 120 L=1,NREG SBCT230 

IP (X.LT.XLIE (L+2) ) GO TO 125 SBCT2«0 

120 CONTINUE SBCT250 

GO TO 130 SBCT260 

125 CALL HEIGHT (I# YBODY, L,COEFF, 1) SBCT270 

IP {TBODT.LE.IBOT} GO TO 130 SBCT280 

YTEHP=YTOP SBCT290 

IP {TBODT . LT. TTOP) TTEKP=TBODT SBCT300 

FKB (H) =FNB (N) -SLICE* (TTE5P*TTERP-TBOT*TBOT) *PACTOB SBCT310 

130 CONTINUE SBCT320 

IP (PNB (N) .LT.DPNB) PNB (N) =0. ' SBCT330 

150 CONTINUE SBCT3U0 

RETURN SBCT350 

EHD SBCT360 


SUBROUTINE IMPACT (RH,G1,G2,G3,ET, El, PHI, CHI, ETA, IH,CIB) 

COMBON/THIRD/PI 

IF(PBI.£Q.O.) GO TO 20 

IP (CHI. EQ. 0. ) GO TO 20 

DF«PHI*CHI-1. 

DS*PHI * ( 2. 5*ETA) - 1 . 

E=ET*EI 
10 X S RAND (0) 

IP(X.EQ.O.O) GO TO 10 
XT=X**DF* (1.-X) **DS 
IP (XT. GT. XB) GO TO 15 

CIH=CIH+XT • 

IP (CIM.LT- XK) GO TO 10 
CIM=CIH-XB 

15 ET= (1.-PHI) *ET* (1.-X) *PHI*E 
EI= ( 1.— PHI) *EI + X *P HI * E 
20 GP=SQRT (ET/RM) 

EP=2. *PI*R AND (0) 

CSX=2.*RAND(0)-1. 

SSX=SQRT(1.-CSX**2) 

G1=GP*CSX 
G2=GP*SSI*COS (EP) 

G3=GP*S5X*SIN (EP) 

RETURN 

END 


BROUTINE GAS (N WEDG f THSTAZ, DEL ANG, N HEDGE, ET A, Cl ,DFA , N E, ELD, LV F, FNGASO0 1 0 
D3,NB,KBF,LPF,?AU,PAV,PAS / PAX,PAY,PAZ,XLI3,COEPF,LH,I2,I3,LARGE,GAS0020 
M,ENB, DEBUG 1,LCOL,NUMCEL, IP, EB,CRI,CNG,CMG,I,LB,N3M,NBK) 

TEGEB*2 LH (I, 1) , LPF (I, 1) ,LCOL(I,1) ,LB(1) , NBS (I, 1) , NBN ( 1) 

TEGEB*2 NB, NBP, NUHCEL 

TEGEB Q GAS0050 

(?TrlI nnul noonr i - 


z, y 

ICAL DUMP, DEBUG 1 

EKSION DELARG (2) , NVEDGE (2) , NUMCEL (1) 

E NS ION BTA (1) ,C1 (1) ,DPA (1) , N«(1), RLD(1) ,LHF (1) , PNB (1), CHI (1) 
ENSION DB (1 , 1) ,NB (1,1) ,HBP (X, 1) ,PAU (1,1) ,PAV (1,1) ,PAV (1,1) 
EKSION PAX (1,1) ,PAY (1,1), PAZ (1, 1) , EB (I, 1) ,COEPP («, 1) ,XLIH (1) 
ENSION CNG (1) ,CHG (1) 

ON /FIBST/NL, NW , NH,3B,SB,LB,tH,NXA,NXB 
DN /SECND/BV,BH, BWB, BHB, BVC, BBC, XLB, XLC 


HB,MH,LS,LH,NXA,NXB 
, BHB, BVC, BBC, XLB, XLC 


GAS0050 

GAS0060 

GAS0070 


GAS0110 
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OF POOR QUALii^ 


It uurr 


PBUCITO* OIITBBSITT TIH1-SHARIHG SISTZH 


ggSL c**»m /tm:/ri,i»r«,i,s:mi,cn;ti: 
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cv-’ U *t 
7" *- » 
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*r n. tt. m » r *. VM 

1 1 • t • » 

> Cl |Ml •! » jf*, , M*f If . I , 

5 * r f ' 1 i . i t , 1 . | . * *■* * . ; | 

> c t t*?J ^ 

c«;. ♦*:•»* 1 5 

*•»/*? 4 (t?j 

F4 3 ( P”? # | | 

If I \ II* ’>* r# 1'» ••-•*- :•**» 

*» (IT, IJ -3.3 

i r i CRl nrj . tt. - 1. , 1 1 } 

XF(X«E£«9. 9) CO TO i;<* 

XT * i## CHI (ST) •TIP ( - I ) 

Ct. CSC ( ST) ) CO TO t 2 4 

CIC(RT).CIC(ST) TT 

• l ■ T • C,5,!,T, > “° T0 H* 

c* c (RT) "Cue (S?) -C^c («rj 

126 2B (HT, I) »I 11 

130 I=ZB*IH5D (0) 

140 B=FH*R1HC (0) 

Li=0 

150 IA*LAM 

5-SfIIi? 1,0 ctA * 1 50 T0 150 


GiSO 1 30 
G ISO 1 40 
GZS 0150 
G 1 S 0160 
GiSO 170 
G 1 S 0180 
G&S 0190 
GIS 0200 
C 1 S 0210 
C 4 S 0220 
G 4502 JO 
C 450240 
;ico2so 

;ii^270 

CI*. i / » 0 

* . 4 v; no 

- 4 * : I ; 0 


.It: > « t 

. • ! : mi 

. I • : M : 
« : ♦ : : 

. it . •« t 

ilMII 
.1* tut 
.1 :: Vt| 

.r. m 


j 

t 



’ILE: 6KBEIT DECK 


PRINCETON OKITERSITI TIBE-SHAEIHG STSTEB 


C9=C9*R/* 

IF (C9.LT.RWFB) GO TO 140 
C9=C 9-RWFH 

IP (X.LE. ZLIB (2) ) GO TO 159 
DO 152 1=1 , RREG 
IF (X.LT. XLIB (L+2) ) GO TO 154 
152 COHTIHUE 
GO TO 159 

154 CALL HEIGHT (X, TBODT, L,COEFF# 2) 

IF(B.LT.IBODT) GO TO 130 

159 PAX (BT/H) =X 
D=PI*RAND (0) 

PAT(HT,H)=B*COS (D) 

PAZ(ST # K)=R*SIK(D) 

TAHG=1 80. * (1.-D/PI) 

I¥DGE=TANG/DELANG (1) 

IF{(IWDGE. GE. NWEDGE ( 1) ) .AND. (DEL AUG (2) .HE.O 
1/DELAHG (2) ♦ NWEDGE { 1) 

IF {IWDGE.GE. HWEDG) IWDGE=NWEDG-1 
L=X/B¥+1. 

IP(L-GT.HW) L=HH 
H=R/BH 

IF (R.GE. KH) H=NH-1 
K= (IWDGE*NH*S) *NW+L 
IF (K.LE. NXA) GO TO 160 

WRITE {6, 2) L,H, K, ST, K, DELAHG, N HEDGE, NiEDG, D, 
IF(DCHP) CALL ABEND (11) 

STOP 

160 IP(NL.EQ.I) GO TO 162 

IF (IWDGE.GE. HR EDGE ( 1 ) ) GO TO 162 
IP (FNB (K).GT.O. ) GO TO 162 
L=(X-XLB)/BWB+1. 

IFfL.GT. 3W) L=HR 
S=P./BHB 

IF (5. GE. BH) 3=BH-1 
K= (IWDGE*BB+fl) *BW+L+NXA 
IP (K.LE. NXA»KXB) GO TO 161 

• c *■> % r w p i3 r.pi i vr, KVPfuiP , Di 

khj la £ lb/* / t n , t\ fU. ^ r.j, *— - # - * 9 v , 

IP(DDBP) CALL ABES D ( 12) 

STOP 

161 IF (HL. EQ.2) GO TO 162 
l* (X-ILCJ/BWC-t-l. 

IF (FNB (K) .GT.O.) GO TO 162 

IF(L.GT.LR) L=LR 

B=R/BHC 

IF(K.GE.LH) H=LH-1 
K= (I¥DGE*LH«-B) *LW* L+ NZA+NXB 
IF(K.LE.NBX) GO TO 164 

WRITE (6,2) L,B,K,ST,H,DELANG, N HEDGE, HWEDG, D, 
IB 

IF(DOHP) CALL ABEHD(13) 

STOP 

162 IF (FHB (K) . GT.O. ) GO TO 164 
WRITE (6,3) L,B,K,HT,N,FHB(K) 

IF(DOBP) CALL ABEND(14) 


)) IWDGE= (TAHG-THETAZ) 


GAS0580 

GAS0590 

GAS0600 

GAS0610 

GAS0620 

GAS0630 

GAS0640 

GAS0650 

GAS0660 

GAS0670 

GAS0680 

GAS0690 

GAS0700 

GAS0710 

GAS0720 

GAS0730 


TANG, I WDGE, BH , HW 


GAS0750 

GAS0760 

GAS0770 

GAS0780 

GAS0790 

GAS0800 

GAS0810 

GAS0820 

GAS0830 

GAS0840 

GAS0650 


GAS0870 

GAS0880 

GAS0890 

GAS0900 

GAS0910 

GAS0920 

G1S0930 

TANG, I WDGE, BH . HR, NX A GAS0940 

GAS0950 

GAS0960 

GAS0970 

GAS0990 

GAS0980 

GAS1000 

GAS1010 

GAS1020 

GAS1030 

GAS1040 

TABS, I WDGE, LH,LW, HXA, HXGAS1 050 

GAS1060 
GAS1070 
GAS1080 
GAS1090 
GAS 1 100 
GAS11 10 
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GAS1120 
G1S1130 
GAS1 140 

r 5# TA BG , XWDGE , LH, LW , HXA , HXBG AS 11 50 

GAS1 160 
GAS 1 170 
GAS11S0 
GAS1190 
GA51200 
GAS1210 
GAS1220 
GAS 1230 
GAS1240 
GAS1250 
GAS1260 
GAS1270 

GAS1290 

GAS1300 

GAS1310 

GAS1330 


GAS1360 

GAS1370 


STOP 

164 Q= NUHCEL (K) 

IF(Q. GT. 0) GO TO 165 

BEITE (6,2) Q,L,fl,K, I, DELANG ,NWEDGE,NWEDG 
1,X,E 

IP (DORP) CALL ABEND (15) 

STOP 

165 J=HB (ST, Q) +1 
KW=LWP (LI) 

LPF(RT,N)=KW 
LCOL(HT,N)=0 
LLC=LLC+KS 

IP (J.LE. RHB) GO TO 166 
IP (DEBUG 1) EEITE (6,4) BT,C,HHB 
GO TO 167 

166 HB(HT,Q)=J 
LB (H) =Q 

EBP ( RT,Q) *HSP (ST, Q) + KB 

167 IF (LLC.LT. LL) GO TO 110 
HS(3T)=H 
EBS (HT, 1) =0 
DO 170 Q=1,NBX 
N=NURCEL(2) 

IP (N. EQ. 0) GO TO 170 
A=NBP(3T,N) 

DB (ST, N) =A*D?A (ST) /FNB (Q) 

KB3 (ST, N<-1)=NBH (ST,N) +N3 (ST, N) 

NBN(N)=NBH(3T,R) 

170 CONTINUE 
NG=N3 (HT) 

DO 175 B=1,NG 
0=LB (N) 

BBN(Q)=HBN(Q) +1 
HA=HES (0) 

175 LS (3T,HA)=N 

180 gs;; oE gasi390 

190 LA RGE= 1 eillttlfl 

RETURN rifinon 

GAS1420 

ZRD GAS 1 430 

^ SEDS ' aHn ' LARG 2rBTA,C1,C7,Ce,D1,D2,D3, D4,DTa,NH,SBFL0001 0 
2F m2 FTH ' ^TS.EESS,SSA,SSB,PAU,PAV. PAB, PAI, PAT, PA 2, LPPLOO 0 20 

2F, EBT, BEfl,LCOL,IP,£R, CHI,CHG,CRG,I) 

IRTEGEB* 2 LPF,LCOL PL00040 

nTKPVPTns ' D2 ( 1 ^ D3 ( 1 ) » D4 C) »DTH(1) ,BH (1) ,SN (1) ,ST (1) PLOOOSO 

«i 1 ^ C7(1 >' C8 ( 1 )' LSr n),BLD(1),T5ETA(1),SSA{2,1) FL00060 

15 ,PA ° (I ' ' PiV U drU »PAX(I, D , PAI (1,1) 

p»*i I 4 1) , /I ‘ Py (I#1) , ENT (2,3,6, 1) ,REH (2 ,3,6 , 1 ) . LCOL (1,1) 
iCHG^lf 10 E TS (3 ' 1 >' EEHS < 3 ' 1 ) »PTH{3, 1) ,EB(I,1) ,CHI (1) , CNG(1) , 

COBHON /THIS D/P I- 
COHHOH /POBTH/NBX, BS , ZB 


GAS1380 


PLOOIOO 

P100110 

PL00120 


THE POE POSE OP THIS SUBROUTIKE IS TO ADD A HEW BATCH OP HOLEC0LESPLO0130 
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1 


PBINCETOH OKIVERSITT TIHE-SHARIHG STSTEH 


TO THE SAHPLE THROUGH THE UPSTP.EAH BOUNDART. 


DO 370 HT»1,IP 
ARG=SH (HT) 

XG 0=0- 
E= 1- ■ 

DO 180 HT=1,2 
Sfl=AHAI1 (0.,ABG-4.) 

SSfl=AHAI1 (0-,ARG) 

TEHPC=0. 

DO 170 LA=1,6 
TEHPB=RLD (LA) *RLD (LA) 

AT = TEHPB-TEHPC 
C * TEHPC 
TEKPC=TEHPB 
DO 170 K*1 , NBEDG 

AH=ENT{HT, HT, LA, K) ♦P.EH (NT, RT, LA,K) 

B=AH 

AHH=H 

REH (NT,RT,LA,K) =AH— AHH 
IF(H.EO.O) GO TO 170 
DT * AT/AHH 
DO 160 H*1,H 

IP (NH (HT) .GE.HNH) GO TO 380 * 

NH (HT)*NH (HT) ♦ 1 
NKX=NH(BT) 

B * SQRT (C ♦ DT* (N+P.AND (0) -1.)) 

D= (THETA (K) +RAND(0) *DTH (K) ) *PI/180. 

PAT (HT , KHX) =B *COS ( D) 

PAZ (HT,NHX)=R*SIN (D) 

LPF (HT, KHX) *LWF (LA) 

LCOL (HT, NHX) =0 
130 V=SH + BAND (0) * (SSS*4.-SH) 

Cl (HT) =C1 (HT) +2. *V*EXP (SSB (NT, HT) ♦ 2. * ARG*Y-?*V) /SSA (NT,HT) 
IF(C1 (HT) .LT.1.) GO TO 130 
Cl (HT) =C 1 {HT) - 1 . 

PAU (HT,N3X) =E* V/BTA (HT) 

1«0 T=8. *BAND (0) - 4. 

C7 (HT) =C7 ( “T) +EI? (-V*Y) 

IF (C7 (HT) .IT. 1. ) GO TO 1«0 
C7 (HT)=C7 (HT)-1. 

PAV ( HT, NHX)= (V + ST(BT) ) /BTA (HT) 

150 V=8.*BAKD (0)-4. 

C8 (HT) *C8 (HT) *EXP (-V*V) 

IF (C8 (HT) . LT. 1. ) GO TO 150 
C8(HT)=C8(HT)-1. 

PAW (HT,HHX)=V/BTA(HT) 

ER (HT, HHX) *0.0 

IF(CHI (HT) .LE.-1.) GO TO 160 
125 1*9. *BAND (0) 

IF(X.LE.O.O) GO TO 125 
XT*X**CHI (HT) *EXP (-X) 

IF (XT.GE.CHG (HT) ) GO TO 126 

CNG (HT) =CNG (HT) *XT 

IF (CHS (HT) -LT.CHG (HT) ) GO TO 125 


FL00140 

FL00150 

FL00170 
FL00180 
FL00190 
FL00200 
FL00210 
FL00220 
FL00230 
FLO024 0 
FL00250 
FL00260 
FL00270 
FL00280 
FL00290 
FL00300 
FL00310 
FL00320 
FL00330 
FL00340 
FL00350 
FL00360 

FL00370 
FL00390 
FL00400 
FLO0410 
FL00420 
FL00430 
FL00440 
FLO0450 
FL00460 
FL00470 
FL00480 
FL00490 
FLO0500 
FLO0510 
FLOO 520 
FL00530 
FL00540 
FLO0550 
FL00560 
FL00570 
FL00580 
FL00590 
FL00600 
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126 

160 

-170 


180 


33 0 


340 


-.50 


360 


CKG (HT) =CHG (HT) -CSG (ST) 

ER(HT,NHX)=X 
PAX (HT, NHX) = XG0 
CONTINUE 
ARG*-ARG 
XGO=XB 
E— 1. 

CONTINUE 

DO 370 K=1 , HNEDG 

AH=EKTS (ST,K) ♦HESS (HT,K) 

3* AH 
AHH=H 

RESS (HT,K)=AS-AHS 
IP (H.IO. 0) GO TO 370 
DX=XR/AH3 
DO 365 11=1, R 

IP (NH (HT) .GE.HNS) GO TO 380 
NH (HT) =HH (HT) ♦ 1 
HHX«HH (HT) 

PAX (2T,5SX)= (N— 1. *R A ND (0) ) *DX 

A»CO C MTH? {K> +EAHD C0) * DTH CK) > * PI/1 80 - 
•B«SIN (TH) 

SH=ST (HT) *A 
C*0. 

I?UBS(SH) .LT. 10.) C*EXP (-S5*SH) 

H if”* GT * -10 -) D=S0PT (PZ) *S3 *EBRP (SH) 

rJ ini =D1 tKT) * (C * D )/ FTH (ST , K) 

IP (D1 (HT) .LT. 1.) GO TO 330 
D1 (HT) =D 1 (HT) — 1. 

PAY (2T,NSX)=-Rh*A 
PAZ(HT,HHX)=RH*3 
VHS=.5*SH+SQRT (. 25*SH*32 + . 5) 

VB=AHAX1 (0..SH-4.) 

7= VS* RAND (0)* (SS*4.-VH) 

D2 (HT) = D2 (HT) * 7*EI? (7)! 5* (7SH-2 . *SS ) -7* tV-0 
IP (D2 (HT) . IT. 1. , GO TO 340 ’ 1 2 * 

D2 (HT) =D2 (HT) - 1. 

VN=7 

V=8- *S1ND (0) -4. 

D3 (HT) =D3 (HT) *EXP (-7*7) 

IP (D3 (HT) . LT. 1 .) GO TO 350 
D3(HT)*D3(H?)-1. 

TT1=SN (HT) *7 
V=8.*RAND (0) -4. 

Dfl (HT) *D4 (ST) + EXP (-7*7) 

IP (DU (HT) . LT. 1 . ) GO TO 360 
DU (ST) *D4 (HT) - 1. 

TT2=ST (HT) *3*7 

PAD (HT, NHI) *7T 1/BTA (HT) 

PAT (HT, NHX) * (7N*A*TT2*B) /BTA (HT) 

PAN (HT, NHX)* (-VN*B*7T2*A) /BTA (HT) 

ICOL (HT, NHX)sO 
EB(HT # NHX)*0.0 


*SH))/VNI! 


FL00610 
PL00620 
FL00630 
PL00640 
FL00650 
P100660 
PL00670 
PL00680 
FLOO690 
FL00700 
FL00710 
FL00720 
PL00730 
PL 00740 

PL00750 

PL00770 

FL00780 

FL00790 

PL00800 

PL00810 

PL00820 

PLO0S30 

FL00840 

PL00850 

PLO0860 

PL00870 

FL00880 

PLOOe90 

PLOD 900 

FL00910 

PL00920 

PL00930 

PLO094 0 

PL00950 

FL00960 

PL00970 

PL00930 

PL00990 

PLOT 000 

PL01 010 

PL01020 

PL01 03 0 

PLO 1040 

PL01050 

PL01060 

PLO 1070 

PL01080 

PLO 10 90 

PL01100 

PLO 1110 

PLO1120 
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IP (CHI (RT) .LE.-1.) GO TO 365 

225 X=9.*RAKD{0) 

IP (I. EQ. 0.0) GO TO 225 
XT=X**CHI (MT) *EXP (-X) 

IP(XT. GE.C8G (RT) ) GO TO 226 
CNG (HT)=CNG (MT) +XT 
IP (CNG (RT) .LT.CMG (HT) ) GO TO 225 
CNG (HT)=CNG (KT)-CHG (RT) 

226 ER(HT,NMX)=X 

365 LPF (MT,NHX)=LVP (6) 

370 CONTINUE 
RETURN 
360 LARGE-2 
RETURN 
END 


PL01 130 
PLO 1140 
PL01 150 
PL01 160 
PL01 170 
PLO 1180 


SUBROUTINE COLIDE (CN, CH, VT H, DB, DBA, NB, NCOL,LCOL, PAU, PAV, PAH, ER#T, 
ILK, MT, I2,I3,NUHCEL,£TA,PHI,CHI»CXB,NP,LPF, LKB, NBP , NBH) 

INTEGER TIRE 

INTEGER*2 LR(NP,1), LCOL (NP, 1) ,LPF (HP, 1) ,LKt { 1) 

INTEGER* 2 NBR, NB,NBF,NUHC£L 

DIHENSIOV CN (3,3,1) ,CR(3, 3, 1) ,VTH(1) , DB (NP, 1) , DBA (NP, 1 ) , NB (HP, 1) 
DIRENSION NCOL (3,1) ,T(NP,NP,1) ,NUHC£L(1) ,ETA (3 , 1 ) ,PHI (3, 1) ,CHI (1) 
DIHENSION PAU (NP, 1) ,PAV (NP, 1) , PAV (NP, 1) , ER (NP,1) ,CN6(3,1) , VA (2) 
DIRENSION N3P (NP, 1) , NBA (KP, 1) * 

COHRON /FORTH/NBX 

CORHON /PI PTH/ND, TIRE, DTR . „ 

PORR AT (* TIKE = *,F9.4,» COLL. TIKES = *,2F9.4,* NUHBERS = ',215/) 
FORH AT ( • COLIDE REACHED LINE 160 IN BOX NOKBEB =', IS,* AT CPU TIH 


COLO 030 


COL0080 

COL0090 


TIH 


IE =',F9.4/* YR= * ,E12. 4, * RSL VEL G = *,3E12.4,* El = *,112.4) 

FORRAT {' COLIDE REACHED LINE 165 IN BOX NUMBER =*, 15,* AT CPU 
IE ** , F9 . 4/* VP= * , El 2. 4 , • REL VEL G = *,3E12.4,* El = «,E12.4) 

COLO 100 

THE PURPOSE OF THIS SUBROUTINE IS TO ADVANCE THE ELAPSED TIMES INCOL0110 
CELLS BY AN AMOUNT APPROXIMATELY EQUAL TO' THE PRE-SELECTED COLLIS COLO 1 20 
TIME. THEBE ARE FOUR TIMES FOR EACH CELL, SAVED IB AN ABEAY CALLECOLO 130 
•T*» CORRESPONDING TO THE FOUR TYPES OF MOLECULAR COLLISIONS *HICCOL014Q 
CAN OCCUR. TO ADVANCE THE VARIOUS TIMES, AN APPROPRIATE NUMBER OFCOLOISO 
THE CORRESPONDING MOLECULAR COLLISIONS IS COMPUTED. THE ACTUAL COL0 160 
MOLECULES TO COLLIDE ARE SELECTED AT RANDOM, AND THEIR VELOCITY VCOL0170 
DIRECTIONS AFTER COLLISION ARE SELECTED AT RANDOM. COL0180 

COLO .190 


AIME=DTM*TIME 
DO 240 HTA=1,MT 
DO 230 RTB® 1 , HTA 
D * NTH (HTA) ♦ VTM (RTB) 

BA (HTA) ® VTfl (MTA)/D 
VA (HT3)=VTK (MTBJ/D 
RS«VTR (HTA) *VTM (RTB) /D 
CHT=CHI (HTA) *CHI (MTB) ♦ 2. 0 
PHT® PHI ( MT A, RTB) 

ETT= ETA (HTA, RTB) 

DO 220 H= 1 , N3X 
N=NUSCEL (R) 

IP(N.LE.O) GO TO 220 
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IE ? (T^STi,aTB,H) .LT.AIHE) GO TO 100 
IP (T (HTB, HTA, N) .GE.AIRE) GO TO 220 
100 BA=HB(HTA,N)*HB(HTB,N) 

IP (HTA.EQ. HTB) NA= (HA-NB (HTA,R) )/2* 

XF(KA.X.T. 1) GO TO 220 
KS=0 
120 KC=0 

CP0T=2LTIBE i0) 

KS=K5+ 1 

IF(KS.GT.HA) GO TO 220 

130 KC=KC+ 1 

IP (KC.GT. HA) GO TO 220 
135 I=HB (HTA,H) *HAHD (0) +1 + HBS (HTA,H) 

IP (I. GT. NBH (HTA , H+ 1) ) I=NBB (8*A, H* 1) 

0=1.8 (HTA#I) 

CR=LPF (HTA,J) /AK» 

IP (CR.GT.0.99) GO TO 1»0 
IP (RAND(O) .GT. CH ) GC TO 135 
140 1C=HB (8TB ,N) *BAND (0) +1 + HBH (HTB, N) 

IP (K. GT. HBH (HTB, H + 1) ) K=NBH (HTB , H*1) 

I? (HTA. EQ. HTB. AND. I. EQ.K) GO TO 140 
L=L3 (HTB# K) 

CR=LP? (HTB,L)/AK* 

IF (CR. GT. 0 .99) GO TO 145 
IF (RAND(O) .GT.CB) GO TO 190 

1,5 GH1=8MSTA)*PA0 (2TA,J) *»A (HTB) *PA0 (STB, L) 

GH2=V1 (HTA) *PAV (HTA, J) *VA (STB) *PA? (H.B,L) 

G33=KA (HTA) *? AN (HTA, J) +«A (STB) *PAi (-.B,L) 

G1=PA0 (HTA,J)-?AU (HTB,L) 

G2=PAV (HTA,J)-PA7 (5T3,L) 

G3=PAS (STA,J)-?AV ( HTB , D) 

GS=G 1**2+G2**2+G3**2 

IP (GS. LT. 1.0E-9) GO TO 130 

ET=RH*GS 

EI=EB (ETA , J) +EB (ST3,L) 

VR=GS** (. 5-ETT/2. ) 

IP (VR. GE.C5 (STA, STB, 1) ) GOTO 160 
CH (HTA, HTB, 1) =CN (HTA , HTB, 1) ♦TB 
IP (CH (ETA, 5TB, 1) . IT. CH (STA, HTB, 1) ) SO TO 13 
CH (STA, HTB, 1) =CH (HTA, HTB, 1)-CH (HTA, STB, 1) 

160 COSTIHUE 

CPOT=ELTIHE(0) - __ 

1 , 2 )) 

165 COSTIHUE 

Iplj.EQJIsir WRITE (6,3) a,CPOT,VB,Gl,G2,G3,EI 

IP (PHT.EQ.0-) GOTO 175 

X1=0.0 

IP (CHI (ETA) .EQ.-1.) SO TO 175 
X1=1.0 

IP (CHI (HTB) .EQ.- 1. ) GOTO 175 
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170 X1-=RAND(0) 

IP ((CHI (STA) .EQ. 0. ). AND. (CHI (H7B) .EQ.O.) ) GO TO 175 
XT=X1**CBI (STA) * (1--X1) »*CHI (STB) 

IP (XT. GT. CH ( STA, STB, 3) ) GOTO 175 
CN (BTA,BTB,3)=CN (BTA, HTB, 3) + IT 
IP (CN (BTA, HTB, 3) .LT.CH (STA, STB, 3)) GO TO 170 
Cl (HTA,HTB,3)=CN (STA,HTB, 3) -CH (STA, STB, 3) 

175 CONTINUE 

C=DBA(HTA,N) 

D=DBA (HTB,N) 

IP(C.EQ.O. 0) C=DB (STA, N) 

IF(D.EQ.O.O) D=DB (STB, N) 

IF(T(HTA,BTB,N) .GE.AIHE) GO TO 180 

PAU(HTA,J)=GBUNA (STB) *G1 

PAT (STA, J) *GK2 + SA (STB) *G2 

PAN (BTA, J) =GH3*WA (STB) *G3 

IP (PHT.GT. 0. ) EH (HTA,J)=X1*EI 

LCOL(BTA,J)=1 

NCOL (BTA , BTB) =NCOL (HTA, HTB) *1 COL0810 

T (BTA, HTB, K) *T (STA, HTB, N) *CNB (BTA, HTB) *1PP (BTA , J) /NBP (BTA, N) /D/TH 
IP (BTA. EQ. STB) GO TO 190 
180 IP (T(HTB,BTA,S) .GE.AISE) GO TO 210 
190 PAU (BTB, L) =GH1-NA (BTA) *G1 
PAT(BTB,L) *GH2-BA (BTA) *G2 
PAV (BTB,L) =GH3-NA (STA) *G3 
IP (PBT.GT. 0. ) ER(HTE,L)=(1.-X1)*EI 
LCOL (HTB , L) = 1 

NCCL (HTB , BTA) = NCOL (HTB , BTA) * 1 COL0920 

T (BTB, ETA, N) =T (BTB , BTA, N) «-CN8 (HTB, BTA) *LPF (HTB , L) /NBP (HTB, N) /C/TB 
210 CONTINUE 

IF (H. EQ. 1196) HE ITE (6, 1) AIHE, T (BTA, BTB, S) ,T (HTB , BTA, N) , NBP ( HTA, N) 

1 ,NBF (BTB,N) . 

IP (T (HTA, HTB, N) . IT . AIHE. OH. T (HTB, HTA , N) . LT.AIHE) GOTO 120 
220 CONTINUE 
230 CONTINUE 
240 CONTINUE 
RETURN 
END 



QUTUfOTTI, VTSI) 

INTEGER*2 IP? (I, 1) # LCOL (I, 1} 
INTEGER SWTCH, TIME 
LOGICAL DUMP 

n n i v Tin «# rv 


ia 0 Dili n a $ aw u 9 w , 

ALPHA, SIGHA,COEFF,HTS,BTSI, NTS, NTS?,UT] 
.T,PAZ,LPP,LCOL,TB,IP, SB,CHI,CNG,CHG,I, 
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OX BERSXOH PAI (1,1) ,PAT (I, 1) , PAZ (I, ** ss P) « ES P) 
DIBEHSIOH HTCT (3,14,2,15,3) , FT (3,14,2,15,3) 

DIBEHSIOH EH (I, 1 ) , CHG { 1) , C3G ( 1) , CHI £ 1) 

COBBOH /THIS D/PI, HEEG 
COHBOH /F0BTH/H5X, SH,XR,DDHP 
COBBOH /FIFTH/HD, TIME, BTB 

COBBOK /SVKTB/UH, HO, HO , BT, H , J , XI, II ,21, TOSE 
HAHELIST/CHECK/TIHE. X,T, 2, DX,DY,DZ,TLEFT,RADS,BHS,XB 


HOTO 170 
ROTO 180 
HOTO 190 
BOT0200 


THE PUKPOSE OF THIS SOBBOOTIHE IS TO ADTAHCE THE 
OF ALL THE BOLECOL2S BT AH ABOOHT A PPBOPEIATE TO 
LOCITXES AND THE PRE-5ELECTED COLLISIOH TIBE. 


10 


15 


55 

60 


65 

70 


TL£FT«TL2FT*BAKD (0) 
GO TO 150 


LAH«. 0000001 


FOBBAT (27B SOBETHING IS 5H0HG IH BOTE/3E20. 7, «I7 , E20.7) 

RABEA=NEEG*3 

RBS=RH**2 

DO 150 BT*1,IP 

H*KHH (BT) 

B=H+1 
TLEFT=DTH 
IF (KSSCH.EQ. 1) 

IF (N . GT. HH (ST) ) 

LAR=PA0 (BT , H) 

IF (LAB. EQ. 0. ) 

BO=PAT (BT , S) 

H0=PAI (BT, N) 

XI*PAX (BT, 5} 

TI=PAT (BT, N) 

ZI=PAZ(BT,H) 

DI=TLEFT*LAH 
DT=TLEFT*B 0 
DZ=TLEF?*NO 
X* XI + DX 
I=TI+DT 
Z=ZI+DZ 
RADS=T**2+Z**2 

IF((BADS.GT.2.*BSS) .OP.. (A3S (X) .GT.2. *XB) ) 

IF (EADS. GT. PBS) GO TO 100 
BAD=SQBT (RHS) 

KET= ABS (LAB) /LAB*. 5 
DO 60 L=1 , HAEEA 
IF (XI-XLIB (L) ) 65,55,60 
J=L*-KEI-2 
GO TO 70 
COKTINOE 

SRITE (6, 2) DTH,II,LAB,5,KEI , I AREA, L,XLIB (L) 

IF (DtJBP) CALL ABEHD (16) 

STOP 
J«L-2 
K*J+KZT+1 

IP((K.EQ.O) .OR. (K.ZQ.HAREA-H) ) GO TO 100 
TUS2*(XLIH (K) -XI) /LAB 
XTEHP*XLIB (K) 

IF (TOSZ. LE.TLSFT) 50 TO 75 
TOSE-TLZFT 


— — — — SOTO 2 1 0 
SPATIAL POSITIONHOV0220 
THEIB COBB EH T TEHOT0230 
BOT0240 

BOT0250 

HOV0260 
HOT0270 


SHITE (6, CHECK) 


BOT0290 
BOV0300 
BOV03 10 
HOT0320 
3070330 
HOT0340 
BOT0350 
SOT0360 
H0V0370 
BOT0380 
HOTO 390 
HOTO 400 
HOV0410 
BOT0420 
HOT0430 
HOV0440 
HOT 0 4 50 
3OT0460 


HOT0490 
80T0500 
HOT0510 
HOTO 520 
HOT0530 
HOT0540 
HOTO 550 
HOT0560 
SOT0570 
BOT058O 
HOT0590 
HOT0600 
HOT0610 
BOT0620 
ROT0630 
BOT0640 
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XT£3P=XI*TUSE*LAS 

75 IP ((J.EQ.O).OB. (J.EQ.NREG + 1) ) GOTO 85 , 

CALL I8TEBS{AKN,HJ,NS,NSEDG,SWTCH,THETAZ,XSTABT,I2,I3,I4,I5 
1,NR£DGE, BTA,C2,C3, DFA, FL, HTI, HTB, JNT,TB, XCB,CTI, CTB, CKI,CHB 
2SIGHA, COEFF, HTS, HTSI, KTS, KTSF, OTL, UTT , VTS, MS, IBS, BTC F, KTCV, 
3PAV,PAW,LPF,LCOL,IP,ER»CHI,CNG,CaG,I»UTLI, UTTI, VTSI) 

IF (SNTCH.EQ. 1) GO TO 90 
85 XI=XTEHP 

TI=TI*TUSE*HU 
ZI=ZI*TUSE*NU 
90 PAX (BT,N)=XI 
PAT (HT ,K) = TI 
PAZ (RT , N) =ABS (ZI) 

PAi(HT,N)=ABS {ZI) /ZI*PAV (BT, N) 

TLEFT=TLEFT-TUSE 
IF (TLEFT.GT. 0. ) GO TO 15 
GO TO 10 
100 NZ=NH(ST) 

PAX (KT,N) =PAI (ST, KZ) 

PAT (BT,N) =PAT (BT,KZ) 

PA2(HT,N)=PAZ(HT,NZ) 

PAD (BT , H) -PAD (BT,NZ) 

PAV (3T,K) = PAV (BT , KZ) 

PAN (RT,N) =PAB (BT, KZ) 

EB(BT.X)=EB (HT,NZ) • 

LPF (HT,N)=LPP (RT,NZ) 

LCOL(BT, K) = LCOL (BT, KZ) 

11=11-1 

NH (3T) =NH {BT) -1 
GO TO 10 
150 COKTISOE 
RETURN 
END 


SOV0650 
BOV0660 
, DELANG3OV0670 
, ALPHA, BOV0680 
FV, PAU, BOV0690 

HOV0710 
BOV0720 
H0V0730 
HOV0740 
HOV0750 
HOV0760 
BOV0770 
HOV0780 
BOV 0790 
HOV0800 
HOV0810 
BOV0820 
BOV0830 
8070840 
BOV08S0 
BOV0860 
HOV0870 
' 8070880 

B070890 

8070900 

BOV0910 

3070920 

B070930 

80V0940 

B070950 

BOV0960 


SDBROOTINE ACCUB(I2,I3,FN3,NB,PA0,PAV, PA V, EB, THP,TRP , X 7, TV, Z7,L3, 
1IP,I,LPF,N3F,NB3) 

IN7EGEB*2 LB (I, 1) , LPF (1,1) ,NBB (1,1) 

INTEGER* 2 NB, NBF 

DI BEKS ION FSB (1) ,NB (I, 1) ,PAU (1,1) ,PA7 (I, 1) ,PAW (1,1) ,TKP (I, 1) 

DIBENSION X 7 ( 1 , 1 ) ,T7 (I, 1) ,Z7 (1,1) ,EP. (I, 1) ,TRP (I, 1) ,NBF (I, 1) »rrixnc,n 

COBBQ5 /FORT8/N3X ACU3 060 

THE PURPOSE OF THIS SUBROUTINE IS TO ACCUBULATS TEH PE RAID RES, ACU3070 
VELOCITIES, AND DENSITIES IN VAEIOUS AHRATS FOB DETER HIKING THE ACU3080 
AVERAGE FLOS FIELD PROPERTIES AFTER STEADT-STATE HAS BEEN REACHEDACUH090 

^ — ^ -i — — —— ‘■““““'ACUK I 00 

' s=o a cum io 

DO 180 K=1,NBX 1CUH130 

IF(FNB(K).LE.O.) GO TO 180 *CUH1J0 

8=8*1 ACUB140 

ACU3160 

TV BT*! =00 ACUH170 

ZV HT # N =0 0 ACUH180 

ZYlRT,l!) U.U ICOK 1 90 

TfiP {RT# KJ *0. ACOH1VO 
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TBP{BT,N)=0.0 
TTX=0. 

TTT=0. 

TTZ=0. 

TTR=0.0 
H=8B(RT,K) 

IP (R.LT. 1) GO TO 1 10 

D*0. 

V*0. 

8 = 0 . 

DO 100 L=1*3 
HA=NBS (HT,R) +L 
J*LB {ST, NA) 

AK8=LPP (ST , J) 

PO=PAU (BT,J) 

PV*PAT (ST, J) 

P8=PAV (RT,0) 

O=U*P0*AK8 

V=7+PV»AKH 

B*R+P«*AK8 

TTR=TTB+ER (ST, J) *AKS 
TTX*TTX+PO*PU* A KB 
TTT=TTT+PV*PV*AK8 

DO TTZ=TTZ+PW*PN* AKV 

B=KB?(HT,N) . • 

XT (ST, H) *0/S 
TT (BT,H) = V/S 
2T (RT, N) *B/S 

TSP (ST,K) = (TTX+TTT+TTZ) /H 
TRP {ST,H)=TTP./8 
10 CONTINUE 
30 CONTINUE 
RETD RS 
END 

SUBROUTINE AVRGE (F SB , DB, DB A, N3 , NBT , XT , TT , ZV , XVA , TTA, ZT A, TSP, 
1TRP,TBPA,I?,I.NBP, NBS) 

C0R30H /703TH/N3X 


1COH200 

ACUB210 

AC0B220 

ACTS230 

AC0S240 

ACOB2SO 

ACOH260 

ACOB270 

ACOR280 


AC0H300 

AC0S310 

ACOH320 


ACUS390 

ACUS400 

ACUS410 

AC05420 

ACUH 430 
ACOS 44 0 
A COS 4 50 
AC03460 


1”porpose"o? 7hisTubr7u7ire IS to confute the average flow 

FIELD PROPERTIES. 


8=0 

DO 110 B*1 t 8BI 
IP (PNB (R) .LE.O.) 
8 * 8+1 

DO 100 HT*1, IP • 
A*KBT (HT,81 
B*8B?1HT,H) 
C*A+B 

8BT (BT,B) *C 


GO TO 110 


ATG0050 
-ATG0060 
AVG0070 
ATG0080 
-ATG0090 
ATG0100 
ATG0110 
AVGO 120 
ATG0130 

ATG0150 

ATG0170 

ATG0180 
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NBS(HT,N)»NBS[HT,H) +NB(HT,N) 

IB (C.LT. 1.) GO TO 100 
DBA (HT„N) = (DBA (HT, N) *A«-DB (RT,R) *B)/C 
XVA (HT,N)® (IV A (HT, H) *A + XT (HT»N)*B) /C 
TVA (HT,N) = (IVA (HT, N) *A*TV (HT ,N) *B) /C 
ZTA(HT,N) = (ZTA (HT, H) *A*ZY (HT,N)*B)/C 
THPA (HT, K) * (THPA (HT,N) *A*THP (ET,N)*B)/C 
TRPA (HT, K) = (TR.PA (HT , N) *A+TRP (KT,H) *3) /C 
100 COKTINOE 
110 CONTINUE 
BETURN 
END 

SUBROUTINE DRAG (AK N, HJ , NS, NWEDG,THETAZ, ISTART, 12,13, 14 , 15, DELANG, 

1 N WEDGE .BTA ,C2, C3 , DFA , PL, HTI,HTB,TB,ICB ,CTI ,CTB,CNI,CNR, ALP HA, SIGH A 

2,COEPP,BTS,HTSI,NTS,NTSP,UTL,UTT,VTS,HS,ISS,NTCP,NTCV,PV,PAU,PAV,P 

3AV , LPF,LCOL,IP., EB, CHI, CNG, CHG, I,UTLI, UTTI, VTSI) 

INTEGEB*2 LPF,LCOL 
INTEGEB TIRS,TST 

DIHENSION DELANG (1) , N SEDGE (1) , BTA (1) ,C2 (1) ,C3 ( ^) t 1 ) 

DIMENSION BTR(1) ,TB(1) ,XCB(1) , ALPHA (3,1) , SIGKA (3, 1) , COE. . (4, 1) 
DIHENSION LPP (1,1) ,PAU (I, 1) , PAT (I, 1) , PAW (1,1) • »^TI ^>21 
DIHENSION HTS (3, 12, 13) , BTSI ( 3, 12, 13) , NTS (3, 12, 13) , NTSP (3 ,12, 13) 
DIHENSION UTL (3, 12,13) ,UTT (3 , 12, 13) ,7TS (3,12,13) ,LCOL(I, 1) 
DIHENSION UTLI (3,12,13) ,UTTI (3,12,13) ,TTSI (3»I2,I3) 

DIHENSION CNI (3, 1) ,CNR (3, 1 ) , DBA (1) ,IWS (1) ,BS (1) ,KTCP (3,14) 
DIHENSION NTCT (3,14,2,15,3) , FT (3, 14, 2,15, 3) 

DIHENSION ER (I , 1 ) » CNG ( 1) , CHG ( 1 ) , CHI ( 1) 

COHHON /THIRD/PI 

COHHON /BI FTH/ND,TIHE, DTH, TI , ITS, ITP,TST 


ATG0190 

ATG0200 

ATG0210 

ATG0220 

ATG0230 

ATG0240 

ATG0250 

ATG0260 

ATG0270 

ATG0280 


DBG0040 

DBG0050 

DRG0060 

DRG0070 


COHHON /STNTH/LAH, HD, NU, HT, N , J ,XCL, TCL,ZCL 


DBG0140 
DBG0150 
DBG0160 

^ DR30170 

THE _ PURPOSE OF THIS SUBROUTINE IS TO ACCC KULATE THE DRAG AND RE ATDRG0180 
TRANSFER INCREMENTS ON THE BODY CONTRIBUTED BY EACH HOLECULE WHICDEGO 190 
SITH THE BODY. IN ADDITION, EACH HOLECULE WHICH COLLIDES DBwO 200 
BODY IS ASSIGNED AN APPROPRIATE NEW YSLOCITY (OF BEFLECTDEG021 0 
USED TO CONTINUE ITS SPATIAL TRANSLATION (IN SUBROUTINE DR*02^u 

~ ~~ * DRG0240 

DRG0250 
DRG0260 
DBG0270 
DRG0280 
DRG0290 


COLLIDES 
WITH THE 
WHICH IS 


CALL HORKAL (EIE, JAY, KAY, ONE, COEBB) 
AKW=LPP(HT,N) 

BAD=SQBT (YCL*YCL+2CL*ZCL) 

ABG=YCL/R AD 

TANG=180.* (1.-ARCCOS (ARG) /PI) 
IWDG=TAKG/DELANG ( 1 ) ♦ 1 . 

IB ( (IWDG . GT. NSEDGE ( 1) ) .AND. (DELANG (2) 
1 /DELANG (2) *NWEDGE ( 1) ♦ 1 
IB (IWDG. LT. 1) IWDG*1 
IF (ISDG.GT.NWEDG) ISDG*RSEDG 
D* (LAH»LAH*8U*HD*NU«‘ND) *AKW 
C*ER (HT, N) *AKW 
H* G 

DO 100 H=1,ND 

IP (XCL.LT. XCB (H) } GO TO 110 
100 CONTINUE 


, NE. 0. ) ) IWDG * (TAHG-TBETAZ) 


DBG0310 

DBG0320 


DBG0330 

DBG0340 

DRG0350 
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TLE: GKBEXT DECK 


& 


PBXHCETOH 0RITMSITI TIRE-SHABIKG STSTBH 


110 0I=LAR 

HI“ (N0*JAT — RU*KAT) /ORE 

TID=LAH*ETE+RO*JAT+ND*KAT 

0ID=LAa*OKE-ETE*(EO*JAT+N0*KAT)/OHE 

E=RAHD (0) 

IP (E.LT.SIGHA (HT,H) ) GO TO 115 
7BD*-VID 
OBD=0ID 
WB=HI 
GO TO 125 
115 V=4.*BAND{0) 

C2 (HT) =C2 (HT) ♦ . 54ft 33 1*T*V*V*EXP (1. 5-T*T) 
IP{C2(flT).LT. 1.) GO TO 115 
C2 (RT)=C2 (ST)-I. 

IP (HTSF(RT,R,IHDG) .KE. 0) GO TO 117 
ATB= ALPHA (HT,R) *TB (H)/SIGSA ( HT , R) 

GO TO 118 

117 ATB= ALPHA (HT,H) *TB (.1) /SIG3A (RT,3) + ( 1 . -ALPHA ( RT 
II (RT, 3 ,IWDG) /STS? ( HT, 3, IROG) / (3. +CHI (ST) ) 

118 ABR=SQBT (ATB) 

T=V*ABB/BTA (HT) 

120 A S BAND (0) 

C3 (HT) =C3 (ST) ♦ A 

IP (C3 (HT) . LT. 1 . ) GO TO 120 

C3 (ST) =C3 (ST) - 1. • 

B*SQBT (1.-A*A) 

C=2. *PI*RAHD (0) 

VRD=V*A 


0BD=V*B*COS (C) 

HB=?*3*SIH (C) 

IP (CHI (ST) .2Q.-1.) GO TO 125 
122 X=9.*P.AKD(0) 

I-f(X.EQ.O.O) GO TO 122 
XTESP= 1. 0 

IP (CHI (ST) .KE. 0.0) XTEHP=I**CHI (3T) 

CNG (ST) =CSG (ST) ♦XTESP* EXP (-1) 

IP (CNG(ST) .LT.CSG(HT) ) GOTO 122 
12« COHTISUE 

CHG (HT)=CHG (HT) -C3G (ST) 

IF (CHG (RT) .GE.CSG (ST) ) GO TO 124 
EB (RT,K)=I*ATR 
H=ER (ST, H) *AK? 

125 0B=ETE*7BD«-0HE*0BD 
PAU ( RT ,H) =0B 

PAT (HT,H) ® JAT*YBD- (EAT*VB*ETE* JAT*0RD) /ORE 
PAW (HT,H) =KAY*VED+ (JAT*iB-EIE*KAT*ORD) /ORE 
IP (TIRE. LE. 1ST) BETOBN 
IP (TI.GT.O.) GO TO 130 
TI»TST*DTH 

130 XR2= (ICL-ISTABT) *AKH 
TH2*RAB*AKH 

8* (0BD*OBD+V£D*VBD*RB*iB) *AKH 
0TI«0ID*0ID+RI*RI 
OTI»- (OI0»ETE* JAT*WI«KAT) /OH E 
0IB-- (OBD*ETE*JAI«-RF.*KAY) /ORE 


DRG0360 

DBG0370 

DBG0380 

DBG0390 

DRG0400 

DBG0410 

DRG0420 

DBG0U30 

DBG0Q40 

DBG0450 

0BGOQ6O 

DBG0U70 

DBG0480 

DBG0490 

DBG0500 

0RGO51O 

DBG0520 

3) /SIGSA ( ST, R) ) ‘HTSDBG0530 

DRG0550 

DBG0560 

CRG0570 

0BGO58O 

DRG0590 

DHG0600 

DBG0610 

DBG0620 

DP.G0630 

DBG0640 

DBG0650 


0BGO66O 

DBG0670 

DBG0680 

DBG0690 

DBG0710 

DBG0730 

DBG0740 

DRG0750 

0BGO76O 

DBG0770 

DBG0780 
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LE: GKBEXT DECK 


A 


PRINCETON UNIVERSITY TIHE-5HAEING SYSTE3 


PL (HT) =FL (HT) +AKH*DFA (HT) 

HTI(ST)=HTI(HT)^D+G 
HTR(HT)=HTH(HT)-B-H 
CTI (HT,1)=CTI (HT, 1) ♦UID*OHE*AKH 
CTI (HT ,2) =CTI (HT,2) ♦tJYI*AKH 

CTI (HT,3) =CTI (HT, 3 ) ♦ (XRZ*UYI-YSZ*UID*ONE) *AKH 
CHI (HT,1)=CHI (HT, 1) ♦YID*EYE*AK? 

CKX(HT,2) =CNI (HT, 2) ♦YID*JAY*AKN 

CHI (HT -3) =CNI (HT, 3) ♦ (XHZ*JAY- YBZ*ETE) *YID*AK» 

CTB(HT, =CTR (HT , 1) -URD*OKE*AKH 

CTB (HT,2)=CTR(HT,2) -UYK* AKH 

CTR(HT,3)=CTB (HT, 3) — (XHZ*UYR~YHZ*URD*OKE) *AKH 

CHR (HT ,1 } =CNR (HT, 1 ) - VBD*EYE* AKH 

CNB (HT,2) =CHB (HT, 2) -VBD*JA Y*AKH 

CHR (HT, 3) =CNR (HT, 3) - (XKZ*JAY” YHZ*EIE) *VRD*AKH 

HTS (HT,H,I VDG) =HTS (HT,E,IHDG) *1 

HTSF (ST, H, IHDG) =HTSF (HT, H , IHDG) + AKH 

UTLI (HT, H, IHDG) = UTLI (HT, H , IHDG) ♦FID* AKH 

UTl (HT,H , IHDG) =UTL (HT,H,IHDG) ♦ (UID-URD) * AK? 

UTTI (HT, H, IHDG) =UTTI (HT,S,IHDG) ♦ HI* AKH 
UTT (BT,H , IHDG) =UTT (HT, H,IHDG) ♦ (HI-HB) *AKH 
VTSI (HT, H , IHDG) = VTSI (ST, H , IHDG) —VID* AKH 
VTS (ST, H ,IHDG) = VTS (HT, K, IHDG) + (VRD-VID) *AKH 
HTSI (ST, H, IHDG) =RTSI (HT, S, IHDG) *D*G 
HTS (ST, H, IHDG) = HTS (HT, H,IHDG) *D-B+G-H 
IF(HS.EQ.O) RETURN • 

HC= (2*LCOL (HT, H) ) / (1+LCOL (HT, N) ) +1 
DO 160 1=1 , NS 
HTEST=HS (L) 

IHT=IHS (L) 

IF ( (H.HE.HTEST) .OE. (IHDG. NE. I HT) ) GOTO 160 
IF (NC.EQ. 1) KTCF (ST,L) =NTCF (HT, L) ♦ AKH 
DO 145 JJ=1,KJ 

IF (ABS (VID) .GT.FV (HT, L, NC, JJ, 1 ) ) GOTO 135 
NTCV (ST, L, NC , J J, 1) =NTCV (HT, L, NC, JJ , 1) ♦AKH 
135 IF (UID.GT. FV (HT, L, NC,JJ,2) ) GO TO 140 

HTCT (ST, L, NC, JJ, 2) =NTCV (KT,L, NC,JJ, 2) +AKR 
140 IF (HI* ABS (ZCL) /ZCL.GT. FV (ST,L,NC,JJ,3) ) GO TO 145 
NTCV (ST, L, NC , j J, 3) =KTCV (HT,L, SC, JJ, 3) ♦ AKH 
145 COHTIHUE 
160 CONTINUE 
BETUBH 
END 


DBG0790 


DRG0820 

DBG0830 

DBG0840 

DRG0850 

DBG0860 

DRG0870 

DBG0880 

DBG0690 

DBG0900 

DBG0910 

DBG0920 

DBG0930 

DBG0940 

DBG0950 

DBG0960 

DBG0970 

DBG0980 


DRG1010 

DBG1020 


DBG 1 060 
DRG1 080 


DRG1 150 
DRG1160 
DBG 1170 
DBG1 180 


SUBROUTINE INTERS (AKN, H J, NS, N HEDG,SHTCH, THETAZ ,XSTABT, 12, 13, 14 ,15, INTO0 1 0 
1DELANG,KHEDGE, BTA,C2,C3,DFA,FL, HTI, HTR, JKT,TB, XC3, CTI, CTB, CNI, CNR, INT0020 
2ALPHA, SIGH A, COEFF, HTS, HTSI, NTS, HTSF, DTL, DTT, VTS, HS,IHS, KTCF, NTCT, FINT0030 
3V, PAU, PAT, PAH, LPF,LC01, IP, ER, CHI, CNG,CHG,I,UTLI, UTTI, VTSI) 

IHTEGER*2 LPF,LCOL IHT0050 

INTEGER SHTCH INT0060 

REAL LAH,H0,H0,LINEAB IHT0070 

DIMENSION DELABG (1) , NHEDGE { 1 ) , BTA (1) ,C2 (1) ,C3(1) ,FL(1) ,HTI (1) IIT0080 

DIMENSION HTR (1) ,T3 ( 1) , XCB ( 1) , ALPHA (3, 1) ,SIGHA (3, 1) , COEFF (4, 1) 

DIMEHSION LPF (1,1) ,PAO (I, 1) .PAT (I, 1) ,PAH (1,1), CTI (3, 1) ,CTR (3,1) 

DIHENSIOH HTS (3,12,13) , HTSI (3,12,13) ,NTS (3, 12, 13) , HTSF (3,12,13) 
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r v. is 

if'if-x;! QUALITY 


•HE: GKBEXT DECK 


PRIBCETOK OWIVEBSIII TIBE-SHABISG STSTEK 


DIREBSIOS UT1(3,I2,I3) ,DTT(3, I2^I3WVTSP,I2,J3) ,LC 

DIHEKSIOK DTLI (3 ,12, 13 ) ,0TTI (3 , , -3) NTCP 

DIHEHSIOH CNI(3,1),CKR (3,1), DEMI ,^,2x^,3) 

DIHERSIOB JST(1) - SW .1 - « ' 

DIHSHSION EB(I,1),CBG(1) , ”5 ( ) » jj TOSE 

COBROS /SVKTS/LA3, HD , _ — — 

the pdrpose or THIS SDBBODTIBE is TO OE_Bai»E^r^^^ 

TRAJECTORY IE THERE IS AB IHTERSECTlua 

BODY SDR? ACE. 


L(I, D 


SRTCB=0 
A*COE?r (1, J) 

B*COS??(2,J) 

C*COE?r (3, J) 

D=COEFP (4, J) 

OHE*A*LAB 

T»O=B*30 

TRE*B*HU 

SQ0ARE*0BS*RA5*TR0*!!0 + TRE*SD 
I.IHEAB*OHE*II*T«O*II+TRE*ZI*r0R 

COBST»(A*II*C) *XI*R* (TT*II +21 ZI > D 
IP (SQO ARE. EQ* 0 . ) GO ]|p,rosST 

DISCB»LIHSAR*LX 5 £As-SQOAP.-*COHST 

IP (DISCR.LT. 0. ) RETDRN 
SDISC * SQP.T (DISC? ) 

TYRE * (-LIKEAB-SDISC) /SQUARE ■ * 

GO TO 250 

150 IP (LIS EAR. EQ. 0. ) RETUBH 
TYRE*” . 5 *C0N ST/LIS EAR 
250 IP (TYRE.GT.TUSE) FETUPH 
IP (TYRE. LE. 0. ) RETUBH 
JRT(RT) -JBT (HT) +1 

II=XI*LAR*TYRE 

TI»TI»HD*TYHE 

ZI=ZI*KU*TYRE THETAZ,ISTART,I 2 .I 3 .I 4 ,I 5 . 

CALL DRAGlAKB.SJ.BS.SiEDG^.HCT* , £«dCHI,CBR, ALPH 

i - '* 

3LCOL.IP. ER,CHI,CHG,CBG,I«0*LI»U.TI, 

LCOL (BT,H)=2 
TUSE'TTSE 
SBTCH* 1 
RETORH 
ERD 

SOBBODTISE ROPR AL ( EYE, J AT, K A Y , OB Z, COEPP) 

REAL LAS, HO, BO, JAY, KAY 

DIRENSIOR COE® K (4,1) ... 2CL 

CORSOIt /ST8TH/LAR,H0,M0,-T,H,J,XCL,YCL, 

- -DPDX«2.*COEP? (1,J) •ICL*C0E*P(3,J) 

: ppDY*2.*C0 EPP (2, J) *YCL 

- : bekos*sqrt'dpdx*d?dx+dpdy*dpdy*dpd2*dpdz) . 


(3,14) 

IHT0150 

ikto 160 

EACH BOLECDLARIHT0170 

SCTORI KITH THEIRT01 80 
IKTO 190 

, . 1 HT 0 2 0 0 

IHT0210 

IKT0220 

IKTO 230 

IKT0240 

IHT0250 

IKT0260 

IKT0270 

IKT0280 

IKT0290 

IKT0300 

IST0310 

INT0320 

IKTO 330 

IST0340 

IKT0350 

IST0360 

IBT0370 

IHT0380 

IKT0390 

IHT0U00 

IKT04 10 

IRT0420 

IHT04 30 

IKT0440 

IKT0U50 

IHT0460 

5, DELABG.SHEDGE, IHTOU 70 

'PHA.SIG-.A, COEPP, IKTOUflO 

,PAO.PAY.PAH.LPP,IKTOU90 


IKT0510 

IIT0520 

IRT0530 

IHT0540 

IHT0550 

KORR010 

HORH020 

KORH030 

NORS040 

HORB050 

KORR060 

80RB070 

HORH080 
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OR\GmAL P 
OF POOR 


•LE: GKBEXT 


DECK 


PRINCETON UNIVERSITY TIRE-SHARING SISTER 


EYE=DPDX/D2NOR 
JAY*DFDY/DENOH 
KAY=DFDZ/DENOB 
ONE=SQRT (JAT*JAY*KAY*KAY) 

RETURN 

END 

FUNCTION A RCCOS (ARG) 

COHHON /THIRD/PI 
IP (ARG) 30, 10,20 
10 A=.5*PI 
GO TO 40 

20 A=ATAN (SQET(1.-ARG*ABG)/ABG) 

GO TO 40 

30 A=PI+ATAH (SQRT (1.- ARG*ABG) /ARG) 
40 ABCCOS*A 
RZTURH 
END 

PO NOTION EBBF(SS) 

EBBF=EBPC (-SS) 

RETOBH 

END 


NORR090 
NORH100 
NOR.ni 10 
Kr»ni20 
NOR:. ' ’0 
HORN 140 

ABCS 01 0 
ARCS020 
ARCS 030 
ARCS040 
ABCS050 
ABCS060 
ABCS070 
ABCS080 
ARCS090 
ARCS 100 
ARCS 110 

EERF010 

ERBP050 

EBRF060 


SUBROUTINE PRINT1 (DT, COSANG,SIHAHG,RRA,BNO,DRF,FCF,HTF,FL, HTI, HTR, 

1 CTI , CTR,CKI,CKB) 

DIREHSION DD(3) ,BD(2,5) ,PP(4,4) ,QQ(4,4) ,RR (4,4) ,SS (4,4) ,TT (4,4) 

DIKENS ION 00 (4,4) , PI (4,4) ,Q1 (4,4) ,R1 (4 , 4) ,PA (4) ,PB (4) , PC (4) 

DIRE NS ION FL (1) ,HTI (1) ,RTR(1) , CTI (3, 1) ,CTR (3, 1 ) , CNI ( 3, 1) ,CNR (3 , 1 ) 

DIRENSIOH RRA ( 1) ,RNC (1 ) 

DATA BD/'X-FO'.'RCE • , • T— FO* , * RCE ',' Z-RO' ,' RENT* , 'DRAG* , • »,'LPT10070 

• • j PT10080 

PT10090 


1IPTV 


THE PURPOSE 0? THIS SUBROUTINE IS TO PRINT OUT THE GROSS 
COEFFICIENTS OF THE BODY. 


FOHHATS 


SURFACE PT10100 
PT10 1 10 

PT10 120 

PT 10 1 30 
PT10140 
PT10150 
PT10160 
PT10170 
PT 10 180 


TOT. 


INC. 


1 FORE AT (//I X,50 ('*• ) ,* GROSS SURFACE COEFFICIENTS ',50{'»')/' HOLEC 
1ULAR WEIGHT', 1 21, F8. 3, 3 (19 X, F8.3)/25X, 

2 'INC. REF. TOT. INC. REP. 

3REF. TOT. INC. REF. TOT.') 

10 FORBAT (' RUBBER FLOX * , 4(F9.3,18X)) 

12 FOB5AT(1X,2A4,2X, 'SHEAR • , 4 (3F8.3,3X) ).. 

14 PO?RAT(1 IX, 'PRESSURE • , 4 (3F8. 3, 3X) ) 

16 FORHAT(11X, 'TOTAL « , 4 (3F8. 3, 3 X) /) 

18 POBHAT (' HEAT TRANSFER' ,71,4 (3F8. 3, 3X) /) 


* ******* **♦#*# ************************************************ 


PT10280 
******** PT10290 
PT10300 
PT10310 
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A 


PBIRCETOH OKIVEBSXTT TIBB- SHARING STSTES 


RBR=0. 0 
DO 50 BT* 1,3 

DD (BT) *RBA (ST) *RHU (KT) *DBF/DT 
- 50 RBR=RSB+?BA (ST) *RN0 (ST) 

HRXTE (6,1) (RHA (KT) ,ST=1,3) , BBB 

P?=FL(1) *FC?/DT 

QF=FL(2) *FCF/DT 

BF=FL(3) *FCF/DT 

SF=PF+QF+RF 

WRITE (6/ 10) PF,QP,BF,SF 
DO 200 1=1,3 
PP (4,I)=0. 0 
QQ (4,I)=0.0 
RB (4,I)=0.0 
SS (4,I)=0.0 
TT (4,1) =0.0 
DO {4,I)=0.0 
PI (4,1) =0. 0 
Q1 (4,1) =0, 0 
B1 (4,I)*0.0 
DO 150 BT* 1,3 

PP (ST, 1) =CTI (BT, I) *DD (KT) /BBS 


QQ 

(ST 

.1) 

=CTB (BT 

,1) ♦DD (KT) /B 

SS 

(KT 

,D 

=CKI (ST 

,1) *DD ( KT 

) /H! 

TT 

(BT 

.1) 

=CKB (ST 

,1) *DD £KT) /?: 

PI 

(ST 


=?P (ST, 

I) *SS (BT, 

i) 

Q1 

(ST 

,1) 

=QQ(3T, 

I) *TT (ST, 

i) 

BB 

(ST 


= PP (ST, 

I) »QQ (BT, 

i) 

UU 

(ST 

,D 

=SS (ST, 

I) ♦ TT (ST, 

i) 

B 1 

(ST 

,1) 

=P1 (ST, 

I) + Q 1 (ST, 

i) 

PP 

(4, 

I) = 

PP (4,1) 

♦ PP (ST, I) 


QQ 

<4, 

I) = 

QQ (4,1) 

♦QQ (ST, I) 


BB 

(“, 

D = 

RE (4,1) 

+ RP. (ST, I) 


SS 

(4, 

I> = 

SS (4,1) 

♦SS (ST, I) 


TT 

(4, 

I) = 

•TT (4,1) 

♦ TT (ST, I) 


UU 

(4, 

I) = 

OD (4,1) 

♦ 00 (ST, I) 


PI 

(4, 

!>■ 

PI (3,1) 

♦ PI (ST, I) 


Q1 

(4. 

I) = 

Q1 (4,1) 

♦Q1 (ST, I) 


B) 

(4, 

I) = 

R1 (4,1) 

+R 1 (ST , I ) 



150 COKTINOE 

WRITE (6, 12) (VD (J,I) , J=1 ,2) , (PP (K,I) , QQ (K,I) , BB (E,I) , K= 1, 4) 
WRITE (6, 14) (SS (K,I) ,TT (K,I) ,00 (K,I) ,K=1,4) 

WBITE ( 6, 16) (PI (K, I) , Q 1 (K,I) ,B1 (K,I) ,K=1,4) 

200 CONTIR0E 
AA*COSASG 
BB*SIHARG 
DO 300 1=4,5 
DO 250 K=1 , 4 

PP (K,4)=AA*PP (K, 1) *BB*PP (K, 2) 

QQ(K,4)=AA*QQ(K, 1)*BB*QQ (K,2) 

BB (K,4)=AA*BB (K, 1) ♦EB*RR (K, 2) 

•SS (K,4)*AA*SS (K, 1) +B3*SS (K,2) 

TT (K,4) =AA*TT (K,1)+BB*TT(K,2) 

00 (K»4) =A1*O0 (K, 1) +BB*00 (K, 2) 

P_1 (K,4)=A1*P1(K,1) ♦BB*P1(K,2) 


PT10400 


PT10460 
PT10470 
PT10490 
PT 10490 


PT10630 

PT10640 

PT10650 

PT10660 

PT10680 

PT10690 

PT10700 

PT10710 

PT10720 

PT10730 

PT10740 
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•ILE: GKBEXT DECK 


A 


PRIBCETOB UNIVERSITT TIHE-SHARING SISTER 


Q1 (K,4)=AA*Q1 (K,1) <-63*01 (K,2) 

250 R 1 (K,4) = AA*21 (K,1) +BB*R1 (K,2) 

WRITE (6, 12) (WD(J,I) ,J=1,2),(PP(K,4) ,QQ (K,4),RB (K,4),R=1,4) 
WRITE (6, 14) (SS (K, 4) , TT (K,4) ,00 (K, 4) , K=1 ,4) 

WRITE (6, 16) (PI (K,4) ,Q1 (K,4),B1 (K,4) ,K=1,4) 

AA=-SINANG 
BB— COSAHG 
300 COHTIHOE 
BD=HTF/DT 
PA (4) =0.0 
PB (4) =0. 0 
PC (4) =0.0 
DO 400 HT= 1,3 

PA (HT) =HTI (HT) *RHA (HT) *EH0 <HT) *HD/BHB 
PB (HT) =HTR (HT) *RHA (HT) *BB0 (HT) *BD/RHR 
PC (HT) *PA (HT) *PB (HT) 

PA (4) =PA (4) +PA (HT) 

PB (4 ) =PB (4) *PB (HT) 

PC (4) =PC (4) +PC (HT) 

400 COKTIHOE 

WRITE (6, 16) (PA (I), PB (I), PC (I) ,1*1,4) 

RETORR 

EBP 


PT10750 

PT10760 


PT10800 

PT10810 

PT10820 

PT10830 


PT10950 

PT10960 


SUBROUTINE PEINT2 ( AKN, X START, DT, RHO, RHA, DR? , ?CF, HT?, OTLI , OTTI, VTSI 
1, BTSI, DELAKG, KWEDG E, XS, XCE, ICB,HTS ,STS,k5'S?, UTL, UTT, VTS ,12, 13, IP) 
DI HE NS ION RHA (1) , RNU (1) , DELA NG (1) , NSEDGE (1) , XS (1) , XCE (1) , YCB (1) 
DIHENSION HTS (3,12,13) ,NTS (3,12,13) ,NTSP (3,12,13) ,UTL (3, 12,1 3) 
DIMENSION UTT (3,12,13) ,YTS (3 , I 2, 13) , UTLI (3,12,13) , OTTI (3 ,12, 13) 
DIMENSION VTSI (3,12,13) ,HTSI (3,12,13) 

COHHON /FIFTH/KD _____ 


THE PORPOSE OF THIS SUBROUTINE IS TO PRINT OOT THE DISTRIBUTION 
OH SURFACE OF THE SOr.FACE COEFFICIENTS 


rORHATS 


8 PORHAT {//IX, 45 (•*’),* DISTRIBUTION ON SURFACE * , 45 (• *• ) /71X, ‘INC. 

1 TOT. INC. TOT. INC. TOT. */1 U, • SEGHENT GEOHETRT ' , 
214X, • BOL. HOLE SAHP HUH. SKIN SKIH PRES- PRES- 
3 HEAT HEAT’/' NO. CENTER DELX CENTER DELANG *, 4X“, • WGHT . ? 

a PACT- • - 1 01 « 

5 'FLUX FRCTN FRCTN SORE SURE TRNSP TRHSF* ) 

10 FOE HAT (1X,I3,?8.3,?7.3,P9.3,F8.3,1X,2?8.4,I6,7F8.4) 

11 FOBHAT (37X,?8. 4, ' 1, 0000 • ,1 6,7F8. 4) 

******************************************************** ************** 


PT20060 

PT20070 

PT20080 

PT20090 

PT20100 

PT20110 

PT20120 

PT20130 

PT20140 

PT20150 

PT20160 


PT20230 

PT20240 

PT20250 

If A 


RHR=0. 0 
DO 50 HT=1,IP 
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GKBEZT DECK 


1 


PRINCETON UNIVEBSITT TIHE-SBABING STSTEH 


'LE: 


50 


90 

100 

105 

"110 


BHB*RHB+BHA (HT) *BN0 (HT) 

HRITE (6, 8) 

1*0 

DO 110 B*1 ,HD 
BTT=DT*TCB (H) /1 80. 

P*ZS (K) 

Q=2. * ( (ZCB (K) -ISTAST) *AKH-ZS (N) ) 

AKGLE*0. 

R*0. 

J*0 

DO 105 1*1,2 
B*R+. 5*ANGLE 
1NGLE=DELANG (L) 

B*B-.5*ANGLE 
ICNT=RBEDGE (L) 

IF(ICNT.EQ.O) GO TO 105 ’ 

PHLT=FCF/ (DTI* ANGLE) 

QHLT=DRF/ (DTY*ANGLE) 

SHLT=HTF/(D7T* ANGLE) 

DO 100 K*1,ICHT 
B*R+ ANGLE 
1 * 1 + 1 
J*J+ 1 
83*0 
P3*0.0 
Q3*0. 0 • 

Q4»0.0 
B3=0.0 
B4=0.0 
S3*0. 0 
S4=0.0 

DO 90 HT* 1 , IP 
H1=NTS (HT, N , J) 

E3=H3+H1 

P1=NTSF (HT, N , J) *PHLT*EN0 (HT) 

P3*P3+P1 

Q1=SQBT (OTLI (HT, N, J) **2+0TTI (HT, N, J) ** 2) *RK0 (HT) *RHA (NT) *QHLT/BHE 
Q2=SQBT ( OTL (NT, N, J) **2+ 0TT (HT, S, J) **2) *ES0 (HT) *?.NA (NT) *2SLT/EHB 
Q3=Q3+Q1 
Q4=Q4+Q2 

B1*VTSI (HT, N, J) * RSU (HT) *RH A (HT) *QBLT/BSB 

B2* TTS (HT, N, J) *EN0 (NT) *P.HA (HT) * QHLT/HHB 

S1*HTSI ( HT, N , J) *BNU (NT) *RNA (HT) *SHLT/RHR 

S2= HTS (HT, N, J) *BK0 (HT) *P.NA (HT) *SHLT/RNR 

B3*R3+B1 

B4*B4+S2 

S3=S3+S1 

S4*S4+S2 

BBITE (6, 10)1, P,Q,8, ANGLE, BHA (HT) ,BN0 (HT) ,B 1, PI ,Q1 ,0.2, B 1, B2,S 1, S2 

WBITE (6, 11)B HE, H3, P3,Q3,Q4,B3,B4, S3, S4 

CONTINUE 

CONTINUE 

CONTINUE 

RETURN 

END 


PT20280 

PT20320 

PT20330 

PT20340 

PT20350 

PT20360 

PT20370 

PT20380 

PT20400 

PT20420 


PT20440 

PT20450 

PT20460 

PT20470 

PT20U80 

PT20U90 

PT20500 


PT20660 

PT20670 

PT20680 

PT20690 


A-48 


’ILE: GKBEXT DECK 
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SUBROUTINE PRINT3( 


IP,BJ, NS. NWEDG,I2,I3,I4,I5, RHA,XS,IWS, 


1HS,TANGN,NTSF,NTCF ,RTCV,FV) 

DIBENSION BBA (1) ,XS (1) ,IWS (1) ,BS (1) , TANGN (1) , HTSP (3,12,13) 
DIBENSION NTCP (3,14) , NTCV (3 ,14 , 2,15, 3) . FV (3.14,2,15, 3) .QUO (3, 3) 


PT30020 


FORHATS 


PT3 

PT30050 

PT30060 

PT30070 

PT30080 

PT30090 

BOHENTS OF INCIDENT DISTEIBOTION FONCTIONS ' PT30100 

PT30110 

HOLE 


2 FORBAT (//IX, 40 ('*•), • 

1,40('*») ) 

6 FORBAT (/21X, 15, » OHCOLLIDED BOLECULES* , F8. 4, 27X, 15, • COLLIDED 
ICtJLES ' , F8. 4/) 

8 FORBAT (15, 41, A3, 12 (IX, F9. 4) ) 

10 FORBAT (12X,12(1X, F9. 4)) 

12 FORBAT (1H ) 


PT30170 
PT30180 
PT30190 
PT30200 
PT30210 

*********************** ****************************** ****************** pjjg 22 0 

PT30230 


WRITE (6,2) 

DO 155 1*1, HS 
BB*HS (I) 

ITT* IBS (I) 

N* (BR-1) *KWEDG+ITT 
DO 150 BT*1 , IP 
A=0. 

B* 1. 

IC=NTCF (HT,I) 

ID=NTSF (BT , BE , ITT) —I C 
E=NTSF (ET, BB, ITT) 

IFfE.LE.O.) GO TO 110 

A=IC/E 

B* 1 . -A 

110 WRITE (6, 6) IC,A,ID,B 
E= NT C F (ST, I) 

DO 121 KC* 1, 2 
DO 120 K=1 ,3 
QUO (RC,K) *0. 

IF (E.EQ. 0. ) GO TO 120 
QUO(NC,K)=NTCV(BT,I,NC,1,K)/E 

120 CONTINUE 

E=NTSF (RT, BR, ITT) -NTCF (BT,I) 

121 CONTIKOE 


PT30240 

PT30260 

PT30270 

PT30280 

PT30370 

PT30380 


PT30400 


PT30450 
PT30460 
PT30470 
PT30480 
PT30490 
PT30500 
PT30510 
PT30520 
. PT30530 

WRITE(6,8) N, RSA(BT) ,FV(ST,I, 1, 1, 1) ,QOO(1,1) ,FV(BT,I, 1, 1,2) .QUO 
U}' 2 l tT Z l * X>1 ' 1,3) 'Q 00 ^^) ,F7 (BT,I,2, 1, 1) , QUO (2, 1) , FV (BT, I, 2, 1, PT30 550 
22) , QUO (2, 2) ,FV (ST, I, 2, 1,3) , QUO (2, 3) PT30560 

IF(HJ.BQ. 1) GO TO 150 PT30570 

PT30580 

, PT30590 

Sn tin PT30600 

13 ° 2* 1 ! 3 PT30610 

QOO (NC # K) *0* PT30620 

IP(E.EQ.O.) GO TO 130 PT30630 
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QUO(NC,K)=STCV (KT,I,NC, J,K) /E 
130 CONTINUE 

E*NTSF (HT, HR, ITT) — NTCF (HT,I) 

'.131 CONTINUE 

140 HBITE (6, 10) FT (ST, 1 , 1 , J , 1) , OHO (1 
1,I,1,J,3) , QUO (1,3) ,FT (HT,I,2,J,1) 
2,ft(ht,i,2,j,3) ,qoo(2,3) 

150 WRITE (6, 12) 

155 COHTIHOE 
RETURN 
£ND 


PT30640 
PT30650 
PT30660 
PT30670 

1) , FT (HT,I,1,J,2) , QUO { 1, 2) ,FT (HTPT30680 
QUO (2, 1) ,FT(KT,I,2,J,2) , QUO (2, 2) PT30690 

PT30700 

PT30710 

PT30720 

PT30730 


SUBROUTINE PRI5T4 (HSP,CHI,RNU,I,TBP, NOHCEL, FDN, NTS , DB, NS,THP,IT, 
1TV,2T,KS,NB,XC,rC,2C,LET,LRW) 

INTEGER* 2 LKW (1) 

INTEGER* 2 HB, NO HCEL, NS 

DI HE NS ION FDN { 1) , RNU (1) ,CHI (1) , WTH (1) ,NUBCEL (1) ,T3P(I, 1) ,TRP (1,1) 

01 aSNSION DB(I,1) ,NB (I, 1) ,XT (1,1) , YT (I,1),2T (1,1) ,DBT(3) ,NS (I, 1) 

DI SESSION IC{1) , TC { 1 ) , 2C (1 ) , LEY (1 ) 

COHHOS /F0ETH/N3X • PT50060 

THE PURPOSE OF THIS SUBROUTINE IS TO PBIKT OUT TBS INSTANTANEOUS PT50070 
FLO W- FIELD PROPERTIES. * PT500S0 

PT50090 

PT50100 
PT50110 
PT50 120 

FOR HATS PT50130 

PTS0140 

PT50150 

1 FORHAT (//IX, 45 (•*•)»' INSTANTANEOUS FLOW FIELD INFOH NATION • , 4 5 ( • *PT50 1 6 0 

1»)) • PT50170 

2 FORHAT (/2I, ' LFTEL= ' , 13 , 3X, • WEIGHTING FACTOR (SAX) = ', 13, 31, • WEDGE AH 
1GLE =»,F7.2,' DEGREES' ,3X, ' RADIAL POSITION =• , El 1 . 3/2X, • BOX ♦ X PO 
2SITI05 SAEP DENSITY HACE NO I TEL. T TEL. 2 TEL. T (KIN) T(RO 
3T) TEHP. • , 14X, 'HOLE FRACTIONS') 

3 FORHAT (//IX, 46 ('*'), ' ACCOHULATED FLOW FIELD INFORHATICN 'tUtl'**) 

1) 

4 FORBAT ( 1 X,I4, E 1 1 • 3,16, 8F8. 3, 3X, 3 El 1 .3) 

PT50220 

*********************************************************************** PT50 230 

PT50240 

PT50250 

IF(KS.EQ.O) WRITE (6,1) 

IF(KS.NE.O) WRITE (6, 3) 

DO 40 RT= 1,3 
40 DBT (HT) =0. 0 
FDA=0. 

CHT»0. 

DO 50 BT*1 , HSP 
CHT»CHT*CHI (HT) *RNU (HT) 

50 FDA«FDA*FDN (HT) *WTH (HT) 

TCT=0. 0 
2CT»0. 0 
LETEL*1 
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GO TO 52 


r,N) 


DO 110 H=1,NBX 
H=U0HCEL (S) 

IFfN.LE. 0) GO TO 110 

IE ( (ZC (K) • EQ. ZCT) .AND. (TC (H) .EQ.ICT) ) 

ZCT=ZC (S) 

TCT=TC (H) 

IF(B-GE.LEV (1) ) LEVEL=2 
IF(H.G£.LEV(2)) LEVEL* 3 
VBITE (6,2) LEVEL # LKH (N) ,ZCT,TCT 
52 ICT*XC(B) 

NSABP=0 
DBA=0. 

ivb=o. 

XVB=0. 

ZVB=0. 

THPH*0. 

TRPB=0. 

E*0. 

F*0. 

DO 100 ET=1,BSP 

KSAHP*NSAKP«-NS (3T,N) 

XVB*XYH*XV (BT,N) *BHU (BT) *BTH (BT) *HB{HT,H) 

TVB=TVH + YV (BT, N) *R5U (BT) *»T3 (BT) *BB (ST,H) 

ZVB=ZVfl*ZV (BT / N) *F.NU (BT) *ITB (BT) *NB(3T,K) 

DBA=D3'A*DB (KT,K) *»T2 (ST) _ 

TBPB=TBP3*BTS(ST) *BN0 (BT) *T3P(BT,N) *SB (B. 

TBPB*TRPS+ ?KU (BT) *NB (ST,N) *TRP (BT,K) 

E=E+ HTB (BT) *RN0 (ST) *NB (BT,K) 

100 F=F*BNtJ (BT)*KS (BT,H) 

DBA=DBA/FDA 

IF (E. EQ. 0- 0) GO TO 55 

XVB=XVB/E 

IVB=TV E/E 

ZV3=ZVB/E 

VS=XVa**2*TVB**2+ZVB**2 

trpb=thpb/e-vs 

TRPB=TBPB/F 
55 CONTINUE 

TTB= (TBPB*TBPB)/(2.5*CHT) 

XBPB-TBPS/1.5 

IF(CHT.NE.-I-) TBPB=TRPB/ (1. +CBT) 

IP^TB^tIoI) ABS-SQBT ( (5. *2. *CHT) *VS/(TTH* (3. 5*CHT) ) ) 

CCZ*COS (ZCT/57. 29578) 

SCZ*SQBT (1.-CCZ**2) 

BTB«ZVH*SCZ-TVB*CCZ 
TTH*TVa*SCZ+ZVB*CCZ 
DO 60 BT*1,BSP 
DBT(BT)*RNU(BT)*NB(BT,N) 

IF (F.NE. 0. ) DBT(HT)*DBT(BT)/F 

60 SS?(“*) B« XCT, HSABP / DBA# ABS, X VH, R VB, TVR»THP8#TBPB # TTB, (DBT(J) 
1J»1,3) 

110 CONTINUE 
BZTtJRH 


PT50290 


PT50470 
PT 50480 
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END 

/LKED.STSLBOD DD DSN=0. GKBSPACE. ROTATION (POP.TH) , 

/ DISP=0LD,UNIT=3350, VOL=SEB=RES1 01 , SPACE* 

‘T.KED.STSIN DD * 

IHCIBDE STSLDOD (PORTH) 

ElilRY BAIN 

/ EXEC COBPRESS, DSN= ' U. GKBSPACE. ROTATION' ,RLSE=RLSE 
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APPENDIX B 


MASTER'S THESIS OF Y.P. TSAI 



COLLISION INDUCED VIBRATIONAL TRANSITION 
PROBABILITIES IN DIATOMIC MOLECULES 


ABSTRACT 


In order to improve the Monte-Carlo Direct Simulation 
calculations for hypersonic flow in the transition regime, we 
have to incorporate the effects due to vibrational non- 
equilibrium and potenial dissociation for a diatomic gas. 
The state-to-state transition probabilities are desired. In 
this paper, we model the diatonic molecule as a harmonic 
oscillator which collides with another molecule collinearly. 
Two different methods have been developed, the first one is 
the semi-classical treatment and the second one is the fully 
quantum mechanical approach. The interaction potential 
between two molecules is assumed to be the Lennard-Jones 12-6 
interaction law which is a small perturbation to the 
colliding system. Some numerical results of the state-to- 
state transition probabilities and comparisons are presented 
in Chapter 4. Discussions, which present the important 
aspects of this kind of problem for further study, are made 
in Chapter 5. 
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Chapter 1 Introduction 


The characteristic flow in a highly rarefied gas is 
called "free molecular flow". In this regime the mean free 
path is large compared to the characteristic dimensions of an 
aerodynamic body in the flow; and molecules that impinge on 
the body, and are then reemitted from it will, in general, be 
far away from the body before they strike another molecule. 
The characteristic flow in a moderately rarefied gas is 
called "slip flow". The flow regime intermediate between 
slip and molecular flow is known as the "transition flow 
regime". It corresponds to densities for which the mean free 
path has the same general order of magnitude as the 
characteristic dimension of the flow field. There is a 
dimensionless parameter called the Knudsen number Kn, 
introduced to serve as a criterion for determining the 


relative importance of these rarefaction effects. 

K 

' He 


where 

and 


\ 

Kn « d 

X ■ molecular mean free path 
d = characteristic dimension of vehicle 
M * Mach Number 
Re * Reynolds Number 


Free molecular flow is usually defined as that flow for which 
Kn>10. Slip flow is characterized by a Knudsen number of a 
few per cent, 0.01<Kn<0.1, and the intermediate transition 
regime corresponds to Knudsen number in the range 0.1<Kn<10. 
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These values are, of course, arbitrary. Since the Knudsen 
number is defined as the ratio of particle mean free path to 
body size, it therefore increases with altitude for a fixed 
size body travelling through the atmosphere. 

Generally, for a body of the order of a meter at 
altitudes 150 Kilometers above the earth's surface, the mean 
free path of the particles is much larger than vehicle size 
(here the free stream mean free path X®* 40m). Hence the 
particle-particle collision process in the vicinity of the 
vehicle need not be considered and the relation of 
measurement on the surface to atmosphereic properties is 
explained in a relatively straightforward manner through free 
molecular theory. Below 90Km, (here the free stream mean 
free path X»~2.5 cm), the Knudsen number is so small that the 
fluid can be treated as a continuum with limited influence of 
transport properties and slip-flow boundary conditions. 
However, between these two zones, i.e. in the lower region of 
the thermosphere, is what we called the "transition flow 
regime" in which neither of the limiting theories is 
applicable. 

Flight at very high altitudes often involves extremely 
high velocities and resulting high gas temperature. At 
velocities which correspond to effective temperature of the 
order of a few thousand degrees Kelvin, the so called "real 
gas* effects associated with vibration, dissociation, and 
ionization of the gas molecules can begin to be of 
importance. We are interested in atmospheric entry of a 
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vehicle such as the space shuttle. The Mach number is 
generally above 20 in passing through "transition flow 
regime" and the flow is hypersonic there. At such high 
speeds, any significant number of collision^ between incoming 
particles and those reflected from the body can produce 
extreme changes in the environment near the surface of the 
vehicle. Measurements on the surface are thus strongly 
affected making inference of conditions in the ambient 
atmosphere extremely difficult. For the purpose of data 
interpretation, previous calculation based on direct 
simulation Monte-Carlo computer technique have been developed 
by G.A. Bird(l). By using the Monte-Carlo method, the real 
gas molecules are replaced by their statistical models, and 
the motion of one or more of the chosen particles is traced 
by the computer. In the "Bird" method the real gas molecules 
are simulated by several thousand modeled molecules, rigid 
spheres in the simplest version(l). Theoretical calculations 
of the heat transfer and aerodynamic characteristics of a 
body submerged in the transition flow regime may be carried 
out in this way. Modifications involving more realistic 
interaction laws have been also carried out. Molecules, 
however, contain internal structure, which is important 
primarily for its effect on the energy content of the flowing 
gas. Being composed of nuclei and electrons that have motion 
relative to the center of mass of the molecule, the molecules 
can possess rotational and vibrational as well as electronic 
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internal states. Therefore, translational energy is not 
necessarily conserved in all collisions. The hypersonic flow 
past the sharp leding edge of a flat plate incorporating the 
effects of rotational non-equilibrium for a diatomic gas was 
studied by D.I. Pullin, J.K. Harvey, and G.K. Bienkowski ( 2) , 
and subsequently applied to other blunt body problems (3,4). A 
different model was used to incorporate the same effect in 
other works such as references 5 and 6. At the present 
stage, we want to improve the Monte-Carlo calculations by 
including the effects due to the vibrational degree of 
freedom of diatomic molecules. 

It is convenient to divide vibrational energy exchange 
into two cases: the V-V process, in which the total 

vibrational quantum number of the system is unchanged, and 
the V-T process in which energy is exchanged between 
translation and vibration without conserving the vibrational 
quantum. For harmonic oscillators in the V-V process, the 
amount of vibrational energy lost by one molecule is gained 
by the other and no vibrational-translational energy transfer 
occurs. Considerable interest has been shown in the details 
of inelastic molecular collisions. The treatment of 
scattering between particles with internal structure is 
capable of producing differential and total cross section for 
state-to-state transitions. Our purpose is to calculate 
scattering cross sections for different transitions with 
known initial and final states as a function of collision 
energy or initial relative velocity. We emphasize here that 
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we need state-to-state transition cross sections rather than 
some overall "rates of transition" (rate coefficients) which 
are averaged over an equilibrium velocity distribution for 
the relative translational motion (e.g. Maxwellian 
distribution). The reasons are twofold: 

1. We are dealing with a hypersonic flow system in a 
highly non-equilibrium state with a non-Maxwellian 
distribution of relative velocities of collision. 
The relative contributions of different energy 
molecules to the overall rates may therefore be 
drastically different than in the equilibrium 
state. This effect is accentuated by the steep 
rise of cross-sections with energy coupled to the 
generally decreasing magnitude of the distribution 
function with energy. This unifies that small 
changes in the fraction of molecules with high 
energies due to the non-equilibrium aspect of the 
flow can have extreme effects on inelastic 
processes without corresponding effects on mean 
properties such as density or fluid momentum. 

2. The Direct Simulation Monte Carlo Code (DSMCC) 
consists of tracing a set of "test" molecules 
through a designated volume surrounding the body. 
The velocities and internal states of the 
simulated molecules are altered on the basis of 
collisions computed (as determined by local 


collision probabilities) at fixed time steps. The 
positions are then advanced to new values on the 
basis of motion through the time step increments. 
This detailed computation of individual molecular 
collisions requires, in principle, state to state 
transition probabilities in order to incorporate 
the inelastic energy exchange into the computation 
of molecular velocities and internal states after 
collision. While the results we desire must 
ultimately be consistent with overall measured 
rates the level cf detail necessary within the 
program is well beyond the level of availability 
of experimental data. 

Early theoretical studies of vibrational, rotational, 
and translational energy transfer in collisions were based on 
approximate analytical solutions to the quantum mechanical 
and classical equations of motion. The method of Zener (7), 
later to become known as the distorted wave method, and the 
Born (8) approximation are leading examples of approximate 
solutions to quantum mechanical collision problems based on 
first order perturbation theory. A more detailed literature 
review on previous work in the field of vibrational 
collisions is given in the next Chapter. 

Instead of doing an approximate treatment of a three- 
dimensional realistic system, in this work, we do an exact 
numerical treatment of a simpler model one-dimensional system 
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which has some important features in common with the real 
one. A calculation of transition probabilities for 
vibrational— vibrational-translational energy transfer in a 
collision of two diatomic molecules is to be presented. This 
simple collision model is approximate, utilizing a collinear 
collision of harmonic oscillators with an exponential 
repulsion between center atoms and no chemical reaction 
between the molecules* It may be argued that the 
configuration allowing the most efficient transfer of energy 
between translation and vibration is that in which the atoms 
are collinear. Collinear or head-on collisions make the most 
significant contribution to the transition probability. The 
averaged probability is equal to the probability of 
excitation in a head-on collision times a "steric factor" 
smaller than unity which takes account of unfavorable 
trajectories. For homonuclear molecules it is usually taken 
as * (the average of cos 2 0 taken over a sphere). A more 
detailed theory for the steric factor of linear molecules has 
been propounded by Herzfeld (9). It is our belief that an 
accurate treatment of a collinear model is of more worth than 
an approximate result for the three-dimensional problem. The 
latter approach frequently contains errors which are 
difficult to estimate. The general magnitudes and trends of 
the transition probability obtained by this restricted 
treatment can show us qualitatively, or semi-quantitatively , 
some characteristic features of the problem. 

Two different methods for calculating transition 
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bi 1 i t ie s are discussed in this paper. One is a semi — 
classicial approach, and the other one is a fully quantum 
mechanical treatment. In the semi —classical calculation,, it 
is assumed that the vibrational amplitude of the harmonic 
oscillators are small and so the molecular oscillatioons do 
not greatly affect the external classical collision 
trajectory. The trajectory can be calculated from the 
classical equation of motion. The classical trajectory is 
assumed to define a time-dependent perturbation potential for 
the colliding system and quantum theory is used to derive the 
transition probability. Essentially, the Schrodinger 
equation is solved subject to certain initial conditions 
according to time-dependent perturbation theory. A detailed 
discussion about this theory can be found in the book Quantum 
Mechanic by Schiff (10). 

In the quantum mechanical calculation of transition 
probability, the wavef unction of the whole system is expanded 
in terms of the complete set of eigenfunctions of vibrational 
states of the diatomic molecule. With the aid of the 
orthonormality property of these eigenfunctions, a set of 
coupled second order differential equations is obtained for 
the translational wavef unctions. The transition probability 
is given by the solution to this set of equations in the 
asymptotic region, subject to appropriate boundary condition. 
Several different numerical methods for solving the set of 
coupled equations have been developed by Diestler and Mckoy (11). 
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Riley and Kuppermann (12), and Gutshick et al (13). Solving 
a problem of quantum scattering between two diatomic 
molecules is then reduced to the task of finding a good 
numerical scheme for integrating a system of coupled 
differential equations acccurately. In this work, we use IBM 
IMSL ROUINE DGEAR to solve for the scattered wavefunction in 

the asumptotic region and then calculate the transition 
probability. 

In Chapter 2, a brief review of previous semiclassical 
and quantum mechanical methods on vibrational collisions will 
be given so that we can identify the new points in the 
current work in Chapter 3. Chapter 3 is devoted to a 
discussion of the general theory. We derive some equations 
and expressions there which make a numerical algorithm 
feasible. In Chapter 4, theoretical results of state-to- 
state transition probability specifically for N 2 -N 2 
collisions at different relative velocities are presented. 
Comparison is made with published results. Finally, we 
discuss some important problems related to inelastic 
molecular collisions which deserve further study because they 
make extension to a more realistic treatment of molecular 
scattering possible. 


Chapter 2 Literature Review 

In 1931, Oldenberg (14) discussed molecular collision 
processes qualitively to show the persistence of the 
rotational and vibrational motion. Zener (7) was the first 
to give a detailed mathematical treatment for collisions in 
which molecular vibrations are excited or de-excited. He 
restricted himself to collinear collisions between a 
diatomic molecule and an atom. His theory was based on the 
distorted wave method which includes direct transition from 
the initial state to the final state and assumes that the 
probability of transition is small. It is a perturbation 
method and cannot treat strongly coupled system. 
Takayanagi (15) then extended Zener's one— dimensional 
treatments to three-dimensional collisions. In order to 
save computational labor, the modified wave number 
approximation was introduced. Meanwhile, Schwartz, Slawsky 
and Herzfeld (16) gave a mathematical formulation for the 
vibrational transitions based on the distorted wave 
approximation due to Jackson and Mott (17), simplified by 
the modified wave number approximation due to Takayanagi, 
in diatom-diatom collisions. Their formulation is referred 
to as the SSH theory now and is a quantum mechanical 
result. For purpose of future reference, we describe SSH 
theory in more detail. 

Consider the head-on collision between two diatomic 
molecules AB and CD (assume harmonic oscillators). For 
exponential intermolecular interaction between nearest 
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atoms B and C, one has, 


V o exp(-ar BC ) 


V Q expI-atR-X^-X^) ] 


( 2 - 1 ) 


where R is the distance between centers of mass of two 

molecules, ri and ro are vibrational coordinates, — is the 

. ■ a 

range of the potential and V 0 is a constant. 


m. 


“D 


m A + "B 


' m c + *0 


is the mass of the i— th atom. Solving the Schrodinger 
equation, the transition probability is given in the closed 
analytic forms 

'“('W'iV - ^Iv 1 (n;n 1 )| 2 jv 2 (njn 2 > | 2 {-- bK 4°-cosh 
sinh iTq'.sinh Trq 


2 
i 

( 2 - 2 ) 


where 


V l (n l n l^ = [ +0 ° Z l (n l ,r)exp ^ aX l* r “ r el* Z l (n l' r)dr (2-3) 
* —00 


r +00 


V 2 (n 2 n 2 ) = 


Z 2 (n 2 ,r) exp[aX 2 (r-r e2 ) Z 2 (n 2 ,r)dr (2-4) 


z i ( n j ,r ) the vibrational wave function for harmonic 
oscillator "i" in quantum state nj; r el and r e2 are 
equilibrium separations for AB and CD respectively, and 


q 


q' 


n l n 2 


,n i n 2 


2kn^n 2 

a 


2kn£n£ 

a 


(2-5) 

( 2 - 6 ) 
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Aq * q' q 2 “ ^2^2* te l (n i } + e 2 (n 2*“ e i< n i) ” 


(2-7) 


The wave number of relative motion before and after collision 
^nln2 an< ^ ^nl 'n2 ' satisfy the energy conservation law 

h 2 kn?n_ h 2 k 2 njn' 

£ 1 (n 1 ) + e 2 (n 2 ) + — 2y = e l (n i ) + * 2 ^ 2 ^ + 2y — ” (2-8) 

u is the reduced mass of the whole system; e ± (n) is the 
energy of molecule "i" in the n-th vibration state. For 

the special case, V-V transition, in which n-j+n^nJ+n^ and 
Aq=0. Applying L'Hospital's rule, we get: 

1 2 2 

Llm q - q = 2g 

qi+q cosh Trq' - cosh irg i sinh iTq 
Then the transition probability for V-V process becomes 

pfn^-njn^) = | V ± (n^) | 2 | V 2 (n^n 2 ) | 2 q 2 < 2_9 > 

SSH theory has been most widely used for quantitative 
comparison with experimental measurements of vibrational 
relaxation, but the coupling between rotation has been 
ignored. 

Zelechow , Rapp and Sharp (ZRS) (18) have developed a 
semi-classical method for calculating transition 
probabilities for V-V and V-T energy transfer in a 
collision of two diatomic molecules. Their basic 


are 
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assumption are: 

(1) The perturbation potential is linearised in the 

oscillator coordinates. 

(2) The collision velocity is not too high (e.g. the 
upper limit for N 2 -N 2 collision is lOKm/sec) and 
the collision induced time-varying force constant 
Jc'(t) is small compared to k, the characteristic 
force constant of the molecule. 

Under these two conditions, Kerner (19) method can be 
applied to solve the Schrodinger equation and closed form 
analytical results are obtained. However, this approach 
restricts itself to the transitions of processes of 
symmetric type only. The general formula is: 

AB(n)+BA(m) AB(n ' ) +BA(m ’ ) 

where n,m are vibration quantum numbers before collision 
and n’, m' are that after collision. The collision is 
symmetric in the sense that the two B atoms are in the 
center. 

The development of the high speed electronic computer 
has made it possible to solve the collision problem by 
direct numerical techniques. T.E. Sharp and D. Rapp (20) 
have calculated the vibrational transition probabilities 
for collisions between a diatomic molec" 1 e and an atom. 
In their semi— classical treatment, an N— state approximation 
method is used, in which the total wave function is 
expanded in terms of N eigenfunctions of stationary states 
of the system including the initial, final and all 
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energetically intervening states. A Runge-Kutta single- 
step integration method is employed in the computation 
program. Generally, the value of N needed in expanding the 
total wave function increases with collisioon velocity. An 
"exact" solution for any transition probability Pj^ k is 
reached when the addition of more states to the computation 
results in no significant change in Pj^ k . We extend this 
method to collisions between two diatomic molecules 
(Chapter 3-A) . 

In quantum mechanical treatment. of collisions between 
two diatomic molecules AB and CD, taking B and C as the 
inner atoms of the system, the total wave function is 
expanded in terms of normalized vibrational wave functions 
^AB ( n i 1 ) end Z£p(n 2 »r 2 )« That is: 


ip = Z 


n i n 2 n l n 2 (R) ZAB(ni ' ri> Z CD (n 2' r 2 


) 


Inevitably, we have to solve a system of coupled 
differential equations, which are equivalent to the 
Schrodinger equation, of the following form (detailed 
discussions will be given in Chapter 3-C). 


h 


2 


2y 



k 2 , , 

n i n 2 


n l n 2 


(R) 


r l cnjn-Mn^f <R> (2-10) 

n l n 2 12 


where <njn£ |v|n 1 n 2 > is the matrix element. In principle if 
we can obtain the solution to equation (2-10) with the 
asymptotic form 
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(R) 

f n 'n ' (R > 

n l n 2 


Sn i n l 6n 2 n 2 eXP( “ ik «in- R ) 

n i n 2* n l n 2 ex P ( + ik n £ n ^R) R - *^® 


( 2 - 11 ) 


the probability per collision for transition (n^nj) 
1 > (n^ fH 2 ) will be given by: 


P(n 1 n 5 -+-n 1 'n^) = n l n 2 Ia .. .r 

12 K~r 1 n i n 2 n i n 


n l n 2 


( 2 - 12 ) 


A number of numerical methods (7-9) have been proposed for 
solving the systems of equations (2-10). However, due to 
the rapidly oscillating wavelike solutions to the 
Schrodinger equation, the numerical technique is not 
straightforward. Riley (12) developed the initial-value 
technique with periodic "reorthogonalization". Gadschick 
et al. (13), on the other hand introduced a technique of 
integration using Dirichlet boundery condition and sinple 
one-step Euler integration. A new method for constructing 
wave function for bound states and scattering has been 
proposed by Roy G. Gordon (21), perhaps this procedure can 
save much computer time. Our quantum mechanical treatment 
of this molecule scattering problem is similar to the 
method due to Riley and Kuppermann (12). It is relatively 
simple and straightforward, but in our procedures, the 
virtual states (energetically inacessible) are not included 
in the total wavefunction expansion. 
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Chapter 3 Theory 


A. General Formalism 

The collision model is shown in Fig. 3-1. 


Fig. 3-1 Collision Coordinates 

This figure is the collinear collision configuration 
between two diatoms AB and CD. Assuming that CD is the 
target, and AB is the incident projectile from right. The 
laboratory coordinates of A, B, C and D are x A , x B , x c and 
Xpj their masses are m A , m B , hiq and m B respectively. Let 
V AB and V CD be the binding potential of molecules AB and 
CD. The short range interaction is assumed to be a sum of 
interatomic interactions, 

V INT = V AC (X A _X C ) + V AD (X A' X D } + V BD (x B _X D } + V BC (x B~ X C ) 

The interatomic potentials are exponentially decreasing 
functions, so that for the collinear configuration under 
consideration, only the term V BC (x B -x c ) is important and 
thus 

V 1NT = V BC (X B _X C ) 

The Schrodinger equation for the system is: 
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L hi iL « _ii hi ii h 2 a 2 

Ma ^ 2Mg ax 2 2M C 3x 2 2Mp 3x 2 + Vab(X a“ X B } + V CD (x C“ X D } 

+ ^NT^ -3 ^ | ^ X A' X B' X C' X D^ “ E TOT ^ X A ,X B ' X C' X D* < 3 “D 


We designate the distance between the centers of mass of 
two molecules as R. In molecule AB the distance between 
the atoms is x; in CD it is y. x and y are internal 
coordinates, i.e. 


m A X A~ t ' m B X B 
ITU+; 


l A +IIl B 


X A ~ X B 


x c - X D 


m C X C +m D X D 
m C +m D . 


Let r cm 


m A X A + m B X B +m C X C +m D X D 
m A +I V m C +m D 


which is the coordinate of 


center of mass of the whole system. In terms of the new 
coordiniates (x f y,R,R£jj) the Schrodinger equation becomes: 







+ V 


AB 


(x) + V CD (y) 


(3-2) 


+ V INT (R_Y AB X " Y CD y) 


4<(x,y,R,R CM ) = E tot (x,y 


where M = ■ total mass of the system. 

(m A+ m B ) (m c +m D ) 

^ — — — pj- * reduced mass of the system 
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reduced mass of the molecule AB 


y-_ * 

AB m A +m B 

y = 

CD m C +m D 

m A 

"^AB m.+m ' 

A B 


= reduced mass of the molecule CD 


Y -J!B_ 
CD m c +m D 


Since there is no external force applied to the system, the 

center of mass of the system moves like a free particle and 

its motion can be described by a plane wave, - iK CM R CM 

h 2 K 2 9 

and the energy of the center of mass, T CM = ,is also 

a constant of motion. This does not affect the energy 
transfer and need not be considered further. We can remove 
the R^-dependent part of the wave function (x,y,R,R CM ) by 
separation of variables. 

Let 

^ R CM R CM 

^(x,y,R,R CM ) = \p (x,y,R) e , E T0T = E + T CM 


Substituting these into equation (3-2), we arrive at a 
Schrodinger equation concerning the internal coordinates 
x,y and the relative motion R of thee two colliding 
molecules as follows: 

-h 2 5 2 h 2 a 2 h 2 a 2 

2 *AB 9x2 2 u cd ay 2 2u + *** <X> + V CD (y) + V INT (R ’ W Y CD y) 

^(x,y,R) = EiMx,y,R) (3 _ 3) 

Define y=v-v 
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where x eg and y eg are equilibrium separations of AB and CD. 
Then X and Y are displacements from equilibrium of each 
oscillator. Now we introduce harmonic bonds 
(intramolecular potential) into AB and CD with force 
constants k AB and k CD , hence 

V AB " V2 k M I ! , 


CD 


2 k CD Y ' 


A conventional representation of the in termolecular 

potential energy curve is given by the Lennard-Jones 12-6 

equation. Since the elementary models for energy transfer 

are based on expontial potential, the exponential function 
“ ^ x b“ x C ; /L 

^INT ^ x b” x C^ ~ e “ E roust be fitted to the Lennard- 

Jones potential (Appendix 1), where L is a parameter 
characterizing the range of the interaction. Landau and 
Teller (22) assumed that only the short range repulsive 
part of the intermolecular potential is steep enough to 
influence energy transfer, so that the long-range 
attractive potential e can be neglected. The molecular 
interaction is then assumed to be an exponential repulsion 
between atoms C and B. 

Let v * initial relative velocity 

2 

E « 1/2viVq ■ initial relative kinetic 
energy 


5 ■ H : Rj 

where R^> is the distance at the classical turning point. 
The potential energy in equation (3—3) may be expressed as 
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( 16 ): 


V INT* X ' Y '^ E o exp ^ L * E " Y AB X “ Y CD^ 


(3-4) 


[-h 2 3 2 -h 2 


Equation (3-3) can be written in the form: 

$ 

~ — ry + \ k aB x2 + 7 k rn Y2 

7n 5c 2 2 AB 2 CD 

Mx,y,r) * eiMx,y,r) (3-5A) 


2u ab 3x 2y r , n SY* 2y 3R 


CD 


+ E o exp[^(R-Y AB x-y AB x-Y CD Y)] 


or 


_h 

2y 


AB 


-X 

3x‘ 


2 “cd 5y 


+ | k M X 2 + | k CD y 2 + E 0 exp(^(R-Y AB X- 


^(x,y,R) = ih y \P(x,Y,R) 


( 3-5B ) 


We shall solve the time-independent Schrodinger equation 
(3-5A) by purely quantum mechanical method and the time- 
dependent Schrodinger equation (3-5B) by semi-classical 
method. 

B. Semi-classical Calculation 

Since the deBroglie wavelength of the relative motion 
of two molecules is usually very small compared with atomic 
dimensions (e.g. for N 2 -N 2 collisions at velocity 5Km/sec, 
the deBroglie wavelength is of the order 10" 15 cm, however 
the dimension of N 2 molecules is of the order of a few A), 
it is a fairly good approximation to use the classical 
trajectory for relative motion. The classical equations of 
motion are: 


y CD Y) * 
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dt* 

3 

8R 

v 

INT 

(X, Y, R) 

( 3-6A) 

U Sf* - - 

k AB X 

3 

3X 

Vi NT ( X,Y,k) 

( 3-6B ) 

a 2 y 

57 

k CX> Y 

3 

" 3y 

Vint ( x,y,r) 

(3-6C) 


Generally, the incident energy is much larger than the 
change in the vibrational energy, or in other words, due to 
small transition probabilities, only a small fraction of 
the translational energy is transferred to vibrational 
energy. We may then assume that during the collision, the 
vibrational amplitudes of the oscillators are not driven to 
large values, that means 

X « L, 

Y « L. (3-7) 

In a series calculation given by Wolfberg and Kelley (23), 
we can see that conditions (3-7) are justifiable. Wolfberg 
and Kelley have calculated the energy transfer for 
collisions involving two harmonic oscillators via an 
exponential collision with L»0.22A. Other parameters and 
data are: m A «m B «m c «m D *12a.m.u., angular frequency «2.3xl0 14 
sec” 1 (cf: for N 2 -N 2 collisions m A «m B «m c *m D = 1 4 

a.m.u. ,«4.45xl0 14 sec" 1 ) , the initial energy E Q « 5.078 ev 
(corresponds to v Q * 9Km/sec), then the vibrational energy 
transferred to each diatomic molecule is AE CD « 1.78x10“^ 
ev. Obviously, both Ae ab and AEqj are much less then E Q . 
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The vibrational amplitude never exceeds 0.007 X, and since 
L*0.22 X the conditions (3-7) are fairly well satisfied. 
At low velocities (still high enough so that the deBroglie 
wavelength is much less than the atomic dimension), the 
energy transfer becomes smaller because the oscillator can 
readjust ad iabatically to the perturbation caused by the 
incident particle. Conditions (3-7) are satisfied even 
better. Under conditions (3-7), the molecular oscillations 
do not greatly affect the external classical collision 
trajectory. Therefore, one can neglect the motion in X and 
Y in treating the motion in R. Equations (3-6A), (3-6B), 
and (3-6C) may then be replaced by: 


V 



3 _ 

BR 


V 

INT 


(R,X=0, 


Y=0) 


(3-8) 


Solving equations (3-8) with V INT given by (3-4), one finds 
that the trajectory R(t) satisfies the relation 


exp (- 


R(t) . 
L ’ 


sech' 1 



(3-9) 


R(t) is then inserted into the interaction potential 
function V JNT (X,Y,R) to obtain V INT (X,Y,t). In this 
semi-classical treatment, V INT (X,Y,t) is used as a 
transition inducing perturbation acting upon a quantum 
mechanical harmonic oscillator. Finally, from equation (3- 
5B) we get the time-dependent Schrodinger equation to be 
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solved numerically by first order time-dependent 
perturbation theory. 

h 2 iL 4 . i v v 2 - y AB X+t CD Y , 

77? + 7 k AB X 9 7T 7 - 7 k CD y + E o exp( L ) 

P ™ (3-10) 


2 *ab ax 


CD 


2, u c t 


sech (•%£-) \ *<X,Y,t> « ih if<(X,Y,t) 


There is one more comment about the assumptions of 
this semi-classical model. In principle, if the deBroglie 
wavelength associated with the relative motion is much less 
than the atomic dimensions, it is a good approximation to 
use classical mechanics for solving the relative 
trajectory. As just mentioned before, if the criteria (3— 
7) are fulfilled, in other words, each of the oscillation 
amplitudes of the two colliding diatomic molecules is very 
small compared to the characteristic range of the 
interaction potential, a further simplification can be 
made in solving for S(t), the relative trajectory. These 
procedures correspond to the "approximate" classical 
method, because the trajectory R(t) is determined with X 
and Y set equal to zero. As a result, these calculations 
do not include the conservation of energy, and E is assumed 
to remain as the energy in coordinate R, regardless of 
how much excitation occurs in the oscillators. For more 
accurate semi-classical calculations, one must solve 
equations (3— 6A), (3— 6B), and (3— 6C) for "exact" classical 
trajectory R(t) to be used as a time —dependent 
perturbation. Prior to the work of Wolfsberg and 
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Kelley (23), it has been thought that the criteria (3-7) 
are automatically satisfied for all low-velocity 
collisions. Actually, this is not the case Wolfsberg and 
Kelley proved that the approximate classical method should 
be limited to collisions between a light particle and a 
heavy oscillator. 

For our case of N 2 -n 2 collision, Wolfsberg and 
Kelley's requirement is satisfied. The energy transferred 
to each diatomic species is very small compared to the 
kinetic energy of relative motion. Both molecules are 
negligibly distorted during collision approach and the 
molecular oscillations never deviate substantially from 
their equilibrium configurations. The semi-classical 
approach is a good approximation even within the high 
velocity range in which we are interested. The reason is 
that as v Q increases, the deBroglie wavelength 
characterizing the relative mootion in R is small compared 
to the distance over which the interaction potential varies 
significantly in R, i.e. L.k n 2 n2 >>l. This implies that 
both q and q' defined by equations (2-5) and (2-6) are much 
greater than unity. In this limit, q >> 1 and q' >> 1, the 
quantum mechanical results of equation (2—2) are reduced 
to the classical results of Landau and Teller (22). 

Let W AB an<3 “CD be the angular frequencies for the AB 
and CD molecules, their isolated Hamiltonians are H-^®'(X) 
and H<CD) (y) respectively, then 
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(AB) 


• 

^AB 

“ab 

P AB 


k CD 

W CD * 

V CD 



(X) * - 



2u 


AB 


3 

3X 4 


1 2 2 
+ 1 U AB W AB X 


H (CD) (y)= _hi ^ + 1 y 4 y 2 

2v cd 3Y 

Suppose the individual eigenfunctions of H^ AB ^(X) and 
h ( cd )(y) are ^\x) and ^(y) , we have: 


H (AB) (X)<^ AB) (X) = (n+|) (X) n* 0,1,2... 

H (CD) (Y) <f^ CD) (Y) » (j+i)hw CD 4)j CD) (Y) 

Set 

4> nj (X,Y) = <^ AB) (X) 4>j CD) (Y) 

W ij = (n+ I } hw AB + (D*4) h “cD 
H 0 (X,Y) = H (AB) (X) + H (CD) (Y) 

H q (X,Y) is the unperturbated Hamiltonian of the system. It 
is obvious that H Q (X,Y)4> nj (X,Y) = W nj $ nj (X,Y) (3-14) 

w ij are eigenvalues of the unperturbed Hamiltonian H Q (X,Y). 
The solutuion to the equation (3-10), i.e> the total 
wavefunction for the system of two oscillators tp (X,T,t) 
can be expanded in terms of the individual harmonic 
oscillator wavef unctions 1^1 X) and <J> (Y) . 


(3-11) 

(3-12) 

(3-13) 
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lMX,Y,t) = l l 




(X) <^ CD) (Y) e“ i(n+ 7 )w AB t e“ i(j '4 ) 


to t 

CD 


(3-15) 


where the expansion coefficients a n j depend on time. 

If the oscillators AB and CD are initially in state N and J 
respectively, then the initial conditions are: 


n « 0,1,2, . . . 


(Appendix 2) 


a . (-») 
nj 


6 nN 6 jJ 

j « 0,1,2,... 


The probability of the system ending up with AB in state Q 
and CD in state K is 


P NJ-*-QK “ I a QK (+00) I 


We are now in the position to solve for the expansion 
coefficients a(t). Substituting equation (3-15) into 
Schrodinger equation (3-10), and using the relations (3-ll>— 4 
( 3-14 ) , we find : 

(ih)II a . (t) 4>^ AB) (X)^ CD) (Y) e" i(n+ l “abV 1 ( j+ l } “CD 1 
nj J J 


= E exp ( 


y ab x+y cd y 


9 u t 
seen (^_) 


II 

nj 


a . (t)***^ (X)<^ CD) (Y) 
ro n *3 


(3-16) 


e -i(n+^ AB t e -i(3+j>“cD t 

Equation (3-16) is multiplied by * (X) 4>j < 7 D) *(Y) on both 

side, where 4^^ is the complex conjugate function of 
and (Y) is the complex conjugate of 4> j (Y) t anc 3 

then integrated. Equation (3—16) then becomes: 


(AB) 


n' 
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(3-17) 


(ih)ZI ft a nj (t)a nn' 6 jj' e " i(n *4 )w AB t e" 1 ( j 4 } ^ 
n j J J J 


u t 


E Q sech 2 {■£-) 


ZZ a ,(t) t/ + ® (X^ABX^* 10 (X)dX] 

r,-i n 3 iec n n 


^ nj 


[ / + “«^? CD) *(y) e YcDY (j>f CD) (Y)dY] e” i(n+ r )u AB t e" i(:i+ l )w CD t 
—00 J J 

where use has been made of the orthonormal property for the 

,« of haroonlc oscillator enargy eigenfunctions * <“> (x, and ♦«« » 


+00 


$-? D) *(Y) (J,^ CD) (Y) <2Y sr 6 

— CO J J J J 


Let 


Vn = 


"*'° 0 (AB) * *^AB^ AB 

(X)e M (X) dX 


V j’j J 


+ " ^ D) *me YcD V D > (Y)dY 

— 00 J 


U n i n and Vjij are the coupling terms between states, called 
matrix elements. Equations (3-17) can be written now as: 


Ihr Vr' 1 ’ - <l!> secl > 2 <TE> « a nj <t> VnVj •‘ ltn 4l“M t 


n 3 


. . 1 , 


(3-18) 


5 -i(j+j) U) CD t 


Equation (3-18) is a set of coupled first order 
differential equations subject to certain initial 
conditions. Actually, this set of differential equations 
is equivalent to the Schrodinger equation (3-10). Next, 


let 


a nj <*> - A nj (t) + iB nj (t) 


(3-19) 


<Y) . 
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where A nj (t) is the real part of a nj (t), and B nj (t) is the 
imaginary part of a nj (t). Both A n j(t) and B nj (t) are real 
functions of time t. We also know that U m . n , Vjj are real, 
and 

e i (n+j) aJ Afi t e i ( j+j) u CD t _ cos + ( j+^.) w^t] 

+ isin [(n+^Ouj^gt + (j+^)a) CD t] 

Inserting equations (3-19) and (3-20) into equation (3-18), 
with some algebra, the real part and imaginary part on each 
side of the equation must be equal separately. So we 
obtain a set of coupled differential equations for A's and 
B' s: 

§t Vj' (t) * YT sec h 2 ” {A nj (t) ■in[(n , -n)« AB t + (j'-jJ^t] 

+ B nj (t) cos [(n'-n)u M t + (j'-j)“ CD t]} U n'n V j'j 

(3-21) 


dt B n • j 


E 0 v t 

(t) - r-2- sech^ (-§=-) ll {B • (t) sin [(n'-nju^ + 
n nj J 

- A nj (t)cos [(n'-n)u AB t + (j 


(j '“j) w CD t] 
, S>“CD tl) VnVj 


Aj-g (+°°) and B rs ( + *) are to be found, hence 

|a rs (+eo)| 2 = |A rs (+c°)| 2 + |B rs (+»)| 2 , 

the desired transition probability. 

In Chapter 2, we mentioned that in the work of ZRS 
(18), they treated collinear collisions between two 
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diatomic molecules with symmetric configuration only. 
Therefore, ‘Y AB is equal to i,e * ! 

y AB * y CD * Y 

The intermolecular potential function in equation (3-10), 

2 V D t Y»gX+Yp^Y) 

EQsech- 6 (jl - ) ex P ( l )is ex P anded in a Taylor series 

to the second order of X and Y; 


E 0 sech 


v t 

( 7I“ ) 


exp [I (x+Y) ] = 


9 V n t 
E 0 sech < 2 £-) 


{1 + J (X+Y) 


2 

+ j (f ) (x+Y) 2 } 
(3-22) 


neglecting high order terms in X,Y. Equation (3-10), with 
interaction potential given by equation (3-22), can be 
solved analytically by applying Kerner (19) method. Our 


semi-classical approach differs from the method of 2RS in 
that we do not expand the potential function E sech 2 (^^0 exo 

, y ab x+ W _ . . ° 2L 

( L ' into a Ta Y lor senes. We make a direct 

numerical integration of the coupled equations (3-21), 
which are equivalent to equation (3-10). It is appropriate 
to carry out classical calculations in which the 
approximate equation (3-8) is used, but the potential 
expansion (3—22) is not carried out. Numerical comparison 
between these two methods for N 2 -N 2 collision will be 
given in Chapter 4. 
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C. Quantum Mechanical Calculation 
To clarify the presentation of the theory, we shall 
use a scaled Schrodinger equation. Define (13): 

1 


y* = y 


(3-23A) 


x* = ( 


P AB k AB. 4 


r x 


(3-23B) 


Inserting equations (3-23A) an.d (3-23B) into equation (3- 
5A) , it becomes: 


h “ CD «- 1 * + y ‘ 2) + 7 br + - 7 “ 5 


•2 


2 .2 


*2y h 3 


3y 


3x 


2y 3R 


+ exp |=* Y CD <-i^— )<(i (!^£V R-y* - ^ 

y CD k CD Y CD h 




'CD AB AB 


'P (x* , y* , R) = EY (x* ,y* ,R) 


(3-24A) 


Dividing both sides by l/2h CD , equation (3-24) looks 
simpler. If we define: 


^AB 

" - ITT ’ E * - 1 ®_ 

CD 2 hu CD 


r* - -J- r 

y cd h 


T.* s 1 v f ^ * 4 _ 1 m D 

L r CD 'y__k__/ ” l m +m — v u — Jc 

™ ^ C D y CD CD 


CD CD 


2 — 
( h ,4 
i- — c — ) 


_h 

yce 


2 

CD 


r y CD k CD,7 1 


y 


CD 


Mcd ( VV 2 


m M 
c 


(m A +In B )lri D 


e = 1 m k CP y CP . 4 _ m c y AB.I 1 
p v n > " ™ in — J — - 


Y CD k AB y AB 


“b y 


CD Li 


1/2 
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The new equation (3-24) is dimensionless, namely; 


U-^+S 2 ) ♦ (- 2 


3y 


3x 


+ x ) ~ =■ — — r 2 + j 


1 d__ 

«■ 3 j 


a *\ 1 1 . i * * *, * . * * 

-ex )1) * (X »y »r ) » E V (x ,y ,r ) 


jhci) 


-) exp [-L* (r*-y* 


CD 


(3/24B) 


Since the constant coefficient ° 

l/2hoj CD 


can be absorbed 


into the argument of the exponential function exp (-L*(r*- 

3 


y*-Bx*))> and the operator 
transformation 


3r*‘ 


is invariant under the 


-> r* + any constant. 


we can choose 


l/2hu 


CD 


* 1 with no loss of generality. 


The notation x*, y* and r* refer to dimensionless 
variables, we now drop the for convenience. Hence the 
scaled Schrodinger equation is: 

g ^ 2 *2 * 

{ ~2 + y ) + W (- £ — 2 + X ) - - — + exp [-L (r-y-Bx) ] H- (x,y,r) 
3y 3x m Sr 


= E ip (x,y,r) 


(3-25) 


The system is specified by the five dimensionless 
parameters. They are u , m, $ , L* and E*, E* is energy of 
the system in term of ground state energy of molecule CD. 
The dimensionless form of the unperturbated Hamiltonian H Q 
is: 

2 

H (x,y) = (- 2__ + y 2 ) + u ( — L- + x 2 ) 

3y 3x^ 


with eigenfunctions ^j(x,y) and eigenvalues W^j , then 

H 0 (x,y) 4> i;j (x,y) = u $ (x,y) i * 0,1,2,... 

j B 0,1,2,... 
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where 


* ij(xx,y) * ♦ 

w ij * ( 2i+l) + ( 2j+l) u 
*ij <x»y) is the product of the individual harmonic 
oscillator wavefunction which indicates that molecule AB 
with internal coordinate x is the vibrational state j, and 
molecule CD with internal coordinate y is in the state i. 
Let the system be in a particular initial state (n 0 ,m 0 ). 
We can expand the total stationary scattering wavefunction 
%iomo (x 'y' r) ' i ' e ’ the solution to equation (3-25) in terms 
of ♦nm**'*) because they form a complete set. 


V«u (x ' y,r) 

o o 


N-l M-l 

: I Z f (r) 

___ ___ nm , nomo ' 
n=o m=o 




(3-26) 


Substituting equation (3-26) into equation (3-25) get: 
N=1 M-l 2 

n=0 m^O V x) ’ = ♦„<*> %(x) S- 2 

+ exp !-L*(r-y-Bx>) f M Itl * n (y) * m (x)) 

N-l M-l 0 ° 

= E* f n m 'n m < r > <^ n (y) ^(X) 


n n nm n m 

n—u m=0 o o 


r m 


(3-27) 


where we have used the relation 


H 0 (x,y) <J> i j(x,y) * w i j <f i j(x,y) 

When equation (3-27) is multiplied by ^yH*. (x) Q n both 

sides and integrated over x and y, we have: 

N-l M-l 2 

n=0 m=0 {W nm f nm,n 0 in 0 (r)< *n*in' (x »y ,> “ J f^2 f nm,n o m o (r)<< ^ n 'm' I <^ nin (x,y)> 


+ f n 0 m 0 ,nm (r) < *n'm' (x,y) l ex P I_L (r-y-Sx) ] l^tx.y) >) (3-28) 

■ E ‘ X f i>m,n m <r)<lf n'n' <x ’y ) l*i* (x 'y) > 

n=U m=u c o 
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where <* n . B . <x.y) l* nJn (x,y)> s j (y) * n (y)dy J (x) * m (x)dx 


= 6,6, 

n’m xn'rti 


(3-29) 


<* n . m . (x,y) |exp [-L*(r-y-6x)] U nin ('x,y)> 

exp (“L r) J <t> n , (y) exp (L y) * n ( y) dy * (x) exp (L*6x) $_<x) dx 

J aOO 


Defining: V nlj||l (r) - n (x»y) I exp [-L* (r-y-8x) ] | ^(x^y) > 


(3-30) 


and using equation (3-29) and (3-30), equation (3-28) 
becomes 


n’m* ' n o m o (r) + An An V n'm',nm (r) f nm,n m 


_ * 

ro E f n'm' ,nomo(r) 

Rearranging this equation, we get 

f n' m ',n e% < r » * V V v n , m . imn (r) f„ (r) 


- m (E -W n « m .) f n 'm',n m (r) 


(3-31) 


Define 


j = /m (E* - WVj) 


(3-32) 


= (E-(2i+l)-(2j+l) ) 

N and M are the number of states of CD and AB included in 
the expansion. We introduce (9) 

i * n + m.N n « 0,1,2, ...N-l m » 0,1. .M-l 

j * n + m.N n « 0,1,2, ...N-l m - 0,1. .M-l 

k « n + m.N n * 0,1,2, ...N-l m = 0,1. .M-l 

to indicate the states of the system. For example, i = 
(n,m) , j = (n,m) and k * (n,m) etc. By incorporating the 
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of equation (3—32) , we obtain a system of 

coupled second order ordinary differential equations in 

® a t r ix form which is equivalent to the Schrodinger equation 

(3-32). j2 

— 2 ?(r) = (V-K 2 ) ? 

dr (3-33) 


where 


(?(r)) Aj 


(V(r)) ij 


(r) i (n,m) j (n 'm* ) ~ ^mnin'ro 1 ^ 
(V (r) i (n m ) j ( n i m i ) - v n m fn > In » ( r ) 


and 


In the asymptotic region where r is very large, V(r) tends 
to zero, so integrating equation (3-33), we get 

Lim ?(r) = e“^ Kr G + e^ Kr j (3-34) 

r+°c 


Equation (3-34) is the asymptotic form of F(r) at large r. 
In principle if G and J are determined, then the transition 
probability from state i * i(n 0 ,m 0 ) to state j = j(n,m) is 
given by: 

p i:j - KJ r 1 ) ji i (3 _ 35) 


where is the inverse matrix of G. However, it is 

rather difficult to find matrices G and J in a 
straightforward manner. We go to the fqllowing alternative 
way: 

F ( r ) = E(r) 

Set (3-36) 

27 E(r) = (V (r) - K 2 ) F(r) 
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+ « 


Letting r c be some point in the asymptotic regime, the 

asymptotic form of F(r) may be also written as 

Lim ?(r) = € -iS(r-r e ) £ + e iK(r-r 0 ) J ( 3 - 3 7) 
£“-**00 

and then, 

Lim E(r) * Lim §| « -iKe _i * (r " r o> £ + iKe i ^ (r " r o ) j. 

x*-^od ar 

So, as the point r « r c in the asymptotic region, it is 
obvious that: 

? (r Q ) « G + J • (3-38A) 

£ (r Q ) • -i fr.Z + iO (3-38B) 

These two relations will be used later. From equation (3- 
37) we have: 

Lim F(r)G” 1 e” iKr ° = e” iKr + e lKr (e” iKr ° JG" 1 e” iKr °) , 
£-*00 

then the transition probabilities are: 




(3-39) 


Since kj is real for open channels, that is to say the 
incoming particle has sufficient energy to excite the bound 
particle to any of its lowest N eigenstates, matrix K is 
rea l too, and these are the only observed ones. In 
equation (3-39) since K is real, we end up with 


p ij 


(jgj1 > ji eJ 

This result is exactly the same as the probabilities 


obtained based on the asymptotic form oof F(r) in equation 
(3-34). We can find G and J in terms of F(r c ), and E(r Q ) 
with no difficult, since G and J are related to F(r Q ), 
( r o^ ky equation (3-38A) and (3-38B). Solving for G and 
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we obtain: 


2G « F(r 0 ) + ir^E^) 

2J * F(r 0 ) - iK _1 E(r 0 ) 

Defining S * Re S + i.lm S * JcT -1 . 

where Re S is the real part of S and Im S is the imaginary 

part of S, (both are real) then 

|JG"1| 2 = |S, 2 = (Re S) 2 + (Im S) 2 
We must find Re S and Im £> in terms of F(r 0 ), iT(r 0 ) and K. 
We know that (19) given three matrices A,X, and Y such that 

•f -4 

A - X + lY 


4 -4 

where X and Y are real, if j 

' X 

y 1 

_1 _ f z 

w] 


[-Y 

xl 

■ l-w 

zl 


then the inverse matrix of A is 

•+•-1 -*• -*■ 

A = Z + iw. 

In our case F(r c ), E(r c ) and K are all real, we may define 

D = K_!E(r 0 ) 
so that equation (3-40) becomes: 

2G = F(r 0 ) + iD 
23 = F(r 0 ). - iD 

Here we want to find the inverse of G, then set: 


f (ro) 

- \ ^ 

I -4 

-4 1 

D - 1 

1 z 

w 


F (r ° / 

-4 

-4 

\-D 

i “ W 

z 


and solve for Z, 
41) means that 


W in terms of F(r 0 ) and D. 

I ? tr °> S \ / z 

1-6 ? tr °7 - i5 2 1 


Equation (3- 

r ° 

0 1 


~ , "4 “4 "4-4 

Or equivalently F(r 0 )Z - DW = 1 

•+ •+ -4-4 

F(r 0 )W + DW = 0 

From the second equation of (3-42), 
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w « - (F(r 0 ) J.jDZ 

Substituting W into the first equation of (3-42), get: 

(F(r 0 ) + D(F(r 0 ’) 1 )D)2 « 1 
hence Z « (F(r c ) + D(F(r Q ) ) _1 D) " 1 

and W — (F(r 0 ) ) " 1 D(F(r 0 ) + DfFfro)) 1 5)* 

in turn, G « 2 ( (F (r Q ) +D (F (r Q ) ) D) ”^-i (F (r Q ) ) ” 1 D (F (r Q ) +D (F (r Q ) ) _1 D) -1 ) 
The derived result is clear now: 

JG " 1,1 ( F ( r Q ) -iD ) ( ( ?( r Q ) +D( ?( r Q ) ) . 1 D) -I(f(r 0 )) 

D(F(r 0 )+D(F(r 0) ) D) ^Re s + ilm S (3-43) 

Since the real part and imaginary part on each side of 
equation (3-4 3) are equal to each other respectively, we 
have : 

Re S * ( F(r_ )-D(F(r ) T 1 D)(F(r )+D(F(r ) ) “ X Df 1 

O 0 0 0 

+ -► - 1 . 1 
IM S - - ( 2D) ( F(r ) +D( F(r )) D) (3-44) 

o o 

where D * K _1 E(r ). 

o 

The transition probability from state i = (n ,nr ) to state 

o o 

j * (n,m) is: 


P. 


i (n o ,m o )-*-j (n,m) 


((Re S)j ± + 



where Re S and Im S are given by equation (3-44). This 
completes the basic principle in calculating transition 
probability for one-dimensional scattering problem within 
the quantum mechanical approach. Discussions of boundary 
conditions in integrating equation (3-36) will be made in 
the next Chapter. 

The original Schrodinger equation has rapidly 
oscillating wavelike solutions which are difficult to 
represent numerically. The integration of equation (3-33) 
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is numerically unstable, unless special algorithms are 
used. Secrest and Johnson, j j in their exact quantum 
mechanical treatment of the one— dimensional scattering 
problem, convert the coupled differential equations into 
equivalent integral equations. The integral involved is 
then replaced by a quadrature sum. The resulting matrix 
equation is then solved indirectly by numerical method to 
obtain the transition probabilities. Chan et al. (24), 
propose a different numerical approach to this problem. It 
involves converting the set of coupled second-order 
equations for the translational wavefunctions into first- 
order equations in matrix form and then solving it by an 
expotential method developed by W. Magnus (25). The idea 
was first conceived by Light et al. (26). The method we 
just discussed for quantum mechanical calculation of 
transition probabilities is a direct integration of the 
state expanded Schrodinger equation. This treatment is 
similar to the method due to Riley and Kupermann (12). It 
is relatively simple and straightforward, but in our 
procedures, the virtual states are not included in the 
total wavefunction expansion. Roy G. Gordon (21) developed 
another method for integrating coupled differential 
equations arising in bound state and scattering problems in 
quantum mechanics. The wavefunctions are constructed in 
piecewise analytic form, to any prescribed accuracy. The 
chief advantage of this method is that it avoids searching 
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for the correct initial derivatives of the 
It is claimed to be numerically very stable. 


wavefunction. 
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Chapter 4 Numerical Results 
A. Semi-classical Results 

For the specific N 2 -N 2 molecular collision, the two 

molecules are identical, then w = ui = ai = 4.45 x 10”*^ 

o AB CD 

sec , y — y p p , and in^ — — ni^ ~ 14.0 a . m . u . . . This 

implies that the matrix elements U . and V , are equal. The 

n n n n 

matrix elements U n , n are given in Table 4-1. 

As mentioned in Chapter 3-B, we may set: 

k « j + (n-1) J, j « 1,2,3,... 

n “ 1,2,3,... 

where J is an integer which is the number of states of 

molecules CD and AB included in the expansion of the total 

wavefunction \p . The integer k is used to represent the 

state (j,n) which means that molecule CD is in the state j 

and molecule AB is in the state n. For example, if we 

choose J = 4, there are 4x4 = 16 states involved in the 

expansion of total wavefunction ^ in terms of the 

individual harmonic oscillator wavef unctions. In other 

words, there are 16x2=32 coupled first order differential 

equations to be solved in equation (3-21). (for J greater 

than 4, the extension is straightforward). In general, 

J=N, let K=k+N.N , where k*l,2,3,...( N.N ). In this way, A n j 

and B can be designated as: 
ng 

Y(k) = A k = 1,2, ...(N.N) 

- B nj K = (N.N)+l,(N.N)+2,. . 2(N.N) 
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Y is then a vector of length 2(N.N). This is the suitable 
form for doing numerical integration of equation (3-21). 
In our computer program, the IBM IMSL ROUTINE DGEAR is 
called. On input, Y(l), Y(2),....Y(2N*N) supply initial 

values which are initial conditions for the system. One of 
the arguments in the subroutine DGEAR, TOL, must be chosen 
suitably. Otherwise the computer time is unecessarily 
long. This parameter TOL, is an estimate of the local 
truncation error. In a series test calculations, we choose 
N = ll, Vo * 8 km/sec and initial state « (1.2), for three 
different values of TOL, 10“ 7 , 10" 8 , and lO" 9 . We obtain 
the data as shown in Table 4-2. We then choose TOL = 10“ 8 . 
The initial value of the step size H, is chosen small 
enough at the beginning of integration so that it can pass 
the error test (based on TOL). In the subsequent 
procedures H is adjusted by the routine itself, but 
changing in the step size always satisfies the error test. 
The number of states used in the total wavefunction 
expansion, N*N plays a very important role in integration 
of equation (3-21). 

In principle, we have to increse N until the final 

transition probabilities converge to values independent of 

N. Table 4-3 to Table 4-5 show the transition probability 

as a function of N for initial state (1,2) at low, medium, 

and high initial relative velocity? i.e. v Q = 3 Km/sec, 6 

Km/sec, and 9 Km/sec respectively. From these tables, it 

is obvious that for high value of velocity v , we need more 

o 


B-42 


states in the expansion of total wavefunction . 
Generally speaking, for v o less than 6 Kn/sec, N * 7 i.e. 
7x7 * 49 states expansion is good enough for initial states 
(1,1), (1,2), (2,2), (3,1), and (3,2). For v Q * 7 Km /sec, 
N should be no less than 9; and for v Q * 8 Km/sec, N should 
be no less than 11. For v q « 9 Km/sec, N must be larger 
than 12. We also find that the value of N depends on the 
initial state. For example, for initial state (4.1) at 
velocity 6 Km/sec, only N * 9, i.e. 81 states expansion 
makes the transition probability converge. The integration 
limits are adjusted until the constraint equation (4-1) is 
satisfied: (for suitable N) 


^initial state -*■ final state ^ ^ 


final state 


< 6 (4-1) 


where 6 is an arbitrary small number, we choose 6 = 10 ~- 4 

here. The integration limits depend on the initial 


relative 

velocity v^, e.g. for 

* 3 

Km/sec, 

the lower 

limit T * 

-1.6x10 ^ 3 and the upper 

limit 

TEND * 

1.6x10 ~ 13 ; 

for v = 
o 

6 Km/sec, T * -l.OxlO -13 , 

and 

TEND « 

1.0xl0“ 14 ? 

for v = 
o 

9 Km/sec, T = -5.0x10 " 14 

, and 

TEND * 

5.0X10* -14 . 


Condition (4-1) serves as a useful criterion on numerical 

1 ♦ 

calculations. 

The numerical results of transition probabilities for 

different initial and final states as a function of v are 

o 

obtained by the semi-classical method and shown in Tables 
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4-6 to 4-10. Figure 4-1 through Figure 4-5 plot the 

transition probabilities as a function of for five 

initial states (1,1), (1,2), (2,2), (3.1) and (3,2). A 

scaling relationship can be very useful for both the 

theoretical and experimental analysis of molecular 

scattering problem. With this relationship, it is easier 

to write the direct Monte Carlo computation program and 

save computer storage space. For a systematic study of the 

scaling relationship, we need more data. It is too 

expensive to be done at this time. In Figure 4-6a and 4- 

6b, we plot only the scaling relationship for V-T processes 

(l,i) (l,i+l) at different v . Since the collision is 

o 

symmetric, there is nothing new in the results by changing 
the initial state (i,j) to (j,i). We examine Figure 4-1 
through Figure 4-5 and find that at low energies the 
P^®^®kil i ty of transferring a given number of quanta by a 
V-V process is much greater than the probability of 
converting them by a V-T process into translational energy. 
For V— T process, the probability increases rapidly with 
increasing collision energies in the low energy regime. 
However, the probability of V-V transfer rises less sharply 
with increasing collision energy. For V-V transitions 
involving two quanta jumps such as (3,1) (1,3) and (3,2) 

(1,4), the transition probability is less than that of V-V 
process (1,2) (2,1), which involve only one quantum jump. 

Generally, at low energies, the transition probabilities 
are very small and multiple quantum transitions are assumed 
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primarily due to stepwise transitions via single collision 
j -*■ j+1 + ... + K-l -*■ K. At high collision energies the 

direct transition j K has significant contribution to the 
transition probability of multiple quantum jump. For v-V-T 
transfer to an adjacent level, processes involving transfer 
of a single quantum (such as (2,1) -*-(3,1) and (2,1) 

(2.1) ) are much more probable than processes of several 

quanta such as (1,2) (3,1). Likewise, transitions (3,2) 

(4.2) , (3,2) •+ (2,2) and (3,2) •+ (3,1) are much more 

P^®k«*ble than the transition (3,2) -»• (2,1). In Figure 4 — 

6a and 4-6b we notice that the general trend of the scaling 
relationship for transitions 

(l,i) — > ( 1 ,i+l) , 

seems to be a weak v^-dependent function. We need more 
data for further analysis. 

A useful check on numerical results is provided by 
time-reversal invariance (which leads to the principle of 
detailed balance). Stated classically, the principle 
implies that a system executes its motion in reverse if 
time is allowed to run backward. In quantum scattering 
processes this means that P . . « P . , i.e., the probability 
a transition for state i to state j is equal to that for 
transition for state j to i. For example, check table 4-8 
ana table 4-9, we have P (2i!) . >(3|1) - 0.845xlcf 3 , P (3>1 , 

- — > (2,2) ~ 0*®^3xl0 this gives 
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P (3,l)-*-(2,2) ” P (2,2)-*-(3,l) 
P (3 , 1 ) -► (2 , 2 ) 


* 0.237%, at 


v_ = 4 Km/sew 
o 

At v o = 6 Km/sec, both p (3 f i)-*.(2,2) an< * P (2, 2) -►(3,1) are e< 3 ua ^ 
to 0.121. The principle of time reversal invariance is satisfied 

quite well. 
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Quantum Mechanical Results and Conpafison 
Referring to Chapter 3-C r it is clear that the 
numerical procedures for calculating transition probability 
by the quantum mechanical method are as follows: 

(1) Integrate equation (3-36) and solve for 
■+* 

F(r 0 ) and E(r 0 ). 

(2) Form D and the expression (F(r )+D(F(r ))~^ 

o o 

S)- 1 . 

(3) Construct Re S and Im S. k 

(4) P,^ « ((Re 3 ) 2 + dm S)2 ) 

2 ? 31 l 

For N*-N* collisions the parameters of the system are ■ 

0.113 (corresponding to L « 0.2 A), to * 1.0, 8 - 1.0, and m 

“ 0.5. The total energy E can be assigned a suitable value 

which corresponds to some value of v Q . Having all these 

parameters, the IBM IMSL routine DGEAR is called to 

■f -f 

integrate equuation (3-36) and find F(r Q ), E(r CJ ). There 
are four factors in this problem that can affect the 
numerical integration. 

(1) Integration error. 

(2) Number of states retained in the state 
expansions. 

(3) Starting point of integration r . 

s 

(4) End point of integration r . 

o 

The local trunction error is conntrolled by TOL, which is 
one of the arguments of the subroutine DGEAR. We choose 
TOL * 1.0x10 here. The starting point is chosen as the 
point r « r at which the largest diagonal element of ^(r ) 
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is equal to twice of the total energy there. The starting 
point is just beyond the classical turning point and in the 
classical forbidden region. . Now, it is appropriate to 
discuss the initial conditions for this system. We set N « 
M « 2, so that there are four states involved in the total 
wavefunction expansion (for high energy collisions we need 
larger N and M to get more accurate results). The initial 
states of the molecule AB and CD are n and m definitely 
at the beginning, where n Q « 1,2; m o » 1,2. Therefore the 
initial value of the matrix F(r) is a unit matrix: 

1.0 0 00 

0 1.0 0 0 

= o 0 1.0 0 

0 o o 1.0 


Since the point r - r is in the classical forbidden 
region, the diagonal element of V(r s ) is much larger than 
the element of K, equation (3-33) becomes: 

^-| * V (r ) .F 
dr s 

The diagonal element of F, f, satisfies the equation 


2-1 . me-“ r s.£(r) 


as r-*~ 


The asymptotic solution is then Lim f(r) * e 

r-*-® 

dF 


/me’ ar s r 


. Recall that 


gp , this gives the initial value of matrix E at 


starting point r as: 

5 
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g 0 0 0 

0 g 0 0 

E Q = 0 0 g 0 

0 0 0 g 

where g * y me *5. The stopping point r is chosen as the 

° 1.0 

point where the diagonal element of V(r ) are less than TUGO. 

O 

of the total energy. In principle, we have to increase the 

total number of states N,M, until the probabilities do not 

change significantly. We keep N*2, and M=2 in this work 

and calculate trnsition probabilities among states (1,1), 

(1,2) and (2,2). Obviously, this four-state expansion is 

good for low energy collisions only. Table 4-11 and Table 

4-12 display the quantum transition probabilities as a 

function of V for initial states (2,1) and {1,1). In 
o 

Table 4-13 through Table 4-16, we list the probabilities 
for transitions (1,2) + (1,1), (1,2) -► (2,2), (1,2) -*• 

(2,1) and (1,1) -► (1,2) by the four different methods. 

Since the computer expense is prohibitively large for fully 
quantum mechanical method, we do not have enough data for 
plotting purpose. Here, we show that the method just 
explored does work. The plots of these tables are thus 
given by Figure 4-7, Figure 4-8, Figure 4-9 and Figure 4-10 
respectively. 

We check these Figures (4-7) through (4-10) and find 
that for the three V-T transitions the probability 
obtained by the semi-classical method is almost one order 
of magnitude smaller than that obtained from ZRS analytic 
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method. For V-l process (1,2) -** (2,1), the semi-classical 
and ZRS results are very close to each other, however, 
2RS results are always slightly larger than the semi- 
classical results. The SSH theory is only good for low 
energy collisions, if the energy is too high the 
probability is greater than unity. This theory breaks down 
there. Since we are interested in high energy collision 
processes of two molecules. We concentrate on the semi- 
classical method. We believe the semi-classical treatment 
can supply a reasonable estimate in calculating transition 
probabilities. This is very helpful because the semi- 
classical method can save much computer time and the 
numerical algorithm is relatively simple. 
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Chapter 5 Discussions 


In this final chapter, we discuss some important 
problems requiring further study for vibrational energy 
transfer. 

A. Three-Dimensional Collisions 

One of the assumptions which we have made in the 
collinear molecular collision model is that the target 
molecule is struck in the direction of its axis. To avoid 
this assumption in the collinear treatment, we have to 
average over the relative orientation of the molecule at 
the proper stage of calculations. However, the period of 
rotation is usually comparable with the duration of the 
collision, there is no simple way to take the average. A 
constant steric factor is generally used. 

Since the rotational energy spacing is much smaller 
than the vibrational spacing, appreciable rotational 
scattering occurs over a range of molecule-molecule 
separations that is considerably longer than that for which 
vibrational transitions are important. The coupling 
between rotational and translation is usually strong too, 
so that the rotational state generally changes before the 
vibrational transition occurs. When a vibrational 
transition takes place the corresponding energy change will 
appear in either translational motion, or rotational 
motion of molecules, or both. It is obvious that if we 
calculate the vibrational transition probabilities, 
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effects of rotational motion have to be considered. In the 
collinear treatment however, we have assumed that the 
simultaneous rotational and vibrational transitions are not 
important and the impact parameter is zero. The realistic 
three-dimensional analyses that take rotational transitions 
into account should include the- correction to the 
vibrational transition probability that results from the 
finite size of the rotational energy spacing in future 
work. Also, the incident particle is described by a plane 
wave which contains the partial waves of different orbital 
angular momentum (the one-dimensional model corresponding 
to an s-wave scattering problem). Usually, many partial 

waves have to be considered and this makes the problem very 
difficult. 

3. Effect of Anharmonicity 

It has been found by experience that the potential 
energy function of actual diatomic molecules can be 
represented quite accurately by a simple analytical 
function called Morse potential, which contains three 
adjustable parameters. If Morse potentials are used to 
describe the intramolecular forces, the diagonal matrix 
elements of the interaction potential which enter into the 
quantum theory of vibrational energy transfer are 
approximately but not identically equal. In the 
calculation given by F.H. Mies, (27) the consideration was 
restricted to the head-on collision between a structless 
incident particle and a diatomic molecule. The transition 
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probability is found to decrease markedly when the ratio 
of the diagonal elements of the initial and final 
oscillator states is allowed to deviate even slightly from 
one. The deviation in turn, increases with the 
anharmonicity of the molecular vibrations, and an 
enharmonic correction factor of the order of 10 -1 to 10” 2 
should be applieed to the generally used probability 
expression for atom-molecule collision. There must exist a 
correction factor of this kind for molecule-molecule 
collision. 

C. Interaction Potential 

Choice of a potential function to be used in 
calculating the transition probability is a very important 
task since it affects the results considerably. In the 
theory of inelastic molecular collisions, the scattering 
potential to be adopted should be simple enough to make the 
calculations feasible as long as the essential features of 
the physics of collision is not lost. This requirement is 
relaxed if we deal with numerical calculations. The chosen 
interaction potential for some pair of molecules must be 
relatively accurate and can be used to represent the real 
situation. If the intermolecular interaction is strongly 
orientation dependent, as in the polar gas, the molecules 
may take a particular orientation during the encounter. 
For this problem of preferential orientation, a somewhat 
different treatment is required. 
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D. Exact Classical Trajectory 

In our semi-classical approximation, the classical 
equations are first solved to obtain the relative motion of 
the molecules as a function of the time. The time- 
dependent Schrodinger equation for the internal motion 
under the external perturbation is then solved to obtain 
the probabilities of various transitions. However, the 
occurrence of inelastic processes are not taken into 
account in solving the classical equation of motion in that 
the effective intermolecular potential and the effective 
translational energy depend on the internal state. If the 
incident energy is much greater than the internal energy, 
the influence of inelastic process on the relative motion 
is unimportant. It is a good approximation to ignore the 
internal state in calculating classical trajectory. For 
more rigorous calculations, an exact classical trajectory 
must be found in which the energy conservation law is 
satisfied. For high energy collisions, the semi-classical 
treatment is, however, a fairly good approximation. It 

requires less computational effort and saves much computer 
time. 
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Appendix 1 Exponential Interaction Potential 
A conventional representation of the interinolecular 
potential energy curve is given by the Lennard-Jones 12-6 
power law (28); 

„ 12 „ 6 

V(r) * 4e ((f) - (f) ) (Al-1 ) 

where V(r) is the potential energy at separation r, and r 
is the distance between atom B and C. This is shown 
graphically in Figure Al-1. 


is the depth of the potential well at intermolecular 

. . _ 12 
distance r , where the repulsive force ( — ) takes over 

_ 6 r 

the long range attractive force ( — ) , and V(r ) is the 

r m 

minimum of the potential function V(r). a is the 
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separation at zero energy, when V(r) « 0, sometimes loosely 
called the "collision diameter". The exponential function 

V INT (r) * constant. e“ r/L - e (Al-2) 

must be fitted to the Lennard-Jones potential V(r), 
equation (Al-1). Here, the choice is made that the 
magnitudes and slopes of the potentials are set equal at r 
" r c * r c is the minimum value of r. These two potentials 
ere illustrated in Figure Al-2. 


Figure Al-2. The exponential potential V INT (r) fitted to 
the Lennard Jones potential V(r). The magnitudes and 
slopes of the two potentials are set equal to each other at 
the classical turning point r * r £ . 
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We deduce an approximate formulas 

L * ° 

1775 

For N 2 molecule, c« 3.749 k, so L 


« 


0.21 X. 
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Appendix 2 The Choice of Initial Tine Reference 

Coordinate in Quantum Scattering Process 

Consider the general scattering in one-dimensional 

space, A flux of incoming particles with mean momentum p 

o 

are incident from left and scattered by an arbitrary 
potential distribution V(x) as shown in Figure A2-1, where 
V(x) is finite and V(x) •+ 0 as x -*■ + ® 


Figure A2-1. Particles scattered by an 
arbitrary potential. 

For large and negative x, the wave packet with mean 
momentum p^ can be superposed as; 

Ip (X,t) “ / dp exp (- 0 i(p-p ) 2 ) exp (i£2L) exp (-i Js5 t) 

— oc w n 2mn 

(A2-1) 

+°° _ 

+/ .» dpR(p) eXp ( -“(P-P 0 ) 2 exp (- i|2L) exp (-i ^ t) 


where R(p) is the reflection coefficient which is a 
constant over a region Ap~ ^=“. For large and positive 
x, the transmitted wave packet is: 
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\ 


+® 




(X,t) * 1 . d P T ^P) ex P(-a(P-P 0 ) ) e xp(i|^)exp(-i 2^) (A2-2) 


where T(p) is the transmission coefficient which is 

1 

constant over a region • Since for large |x| 

and |t|, the term exp(i(2ji - ) in equation 

(A2-1) and (A2-2) is a very rapidly varying function of 
momentum p, the integrals are essentially zero unless p, x, 
and t are such that the stationary phase conditions are 
satisfied: 



( A2-3 ) 






From equation (A2-3) we get: 


x - 



(A2-4) 


P 0 

Where “in - is the classical velocity. Equation (A2-4) 
gives the result that t<<0, if x<<0. Let's check the 
second term in the right hand side of equation (A2-1). 
Since R(p) is approximately a constant within a width Ap 
centered at p « p , then, 



1 


~ /a 
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Stationary phase conditions require that: 


( A2- 5 ) 

-p.t 

Equation (A2-5) implies that x * , this means that 

reflection occurs only when t>0 because the reflected wave 
ex * s ^ s only at x — — — > — *> . Combining the discussions 

just made, we conclude that the incident particles hit the 
pootential at x « 0 and t = 0, and the initial conditions 

of the system are described at t > -® , the final 

conditions are the states at t — > +». 


P = P, 


and 


(Ei + 

3p { h 2mh ; 


* 0 




* 
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APPENDIX C 


COMPUTER CODE INTERNAL 



FILE: GKBIKT AUS82 


A 


PRINCETON OHIVERSITI TIME-SHARING STSTEM 


// JOB GKB 0367*525. GKBSP ACE N=RATRUN2 REG*560 T=1.0 P*100 C=0 
// EXEC RATFIV 

//RATFIV. FT09F001 DD DISP=OLD,DSN=U.GKBS?ACS.RK115 
//WATFIV.STSIN DD DATA 

SJOB BIENKORSKI, T=59, P=1 00, SO LIST 

C HAXN PROGRAM FOR BONTE CARLO 3-D ERTRAKCE PROBLEH CALCULATIONS 

C OBJECTIVE OF THIS HAIR PROGRAH IS TO SET THE DIMENSIONS 

C HAIR BURKING PROGRAH IS **• RON *** 

C 

C FOLLOWING TRO CARDS HAVE TO BE ELIMINATED FOR NOH IBM MACHINES 

C********* ************** ************************************************ 

INTEGER*2 LB, N3H, NBN, NB, HBT 
INTEGER*2 LH,LCOL 

C* ******** ****** ************************ ** ************ ** ********** ****** 

C 

C THE NEXT CARD IS ASSOCIATED RITH PRINCETON RANDOM NUMBER GENERATOR 

C***** ************ ****** ********************************** ************** 

COMHON/R ANCOM/NRAN (#) 

C* **************************************************************** ***^,* 


THE FOLLOWING DIMENSION STATEMENTS SET THE MAJOR ARRAT DIMENSIONS 
AND HOST BE CONSISTENT RITH THE FOLLOWING DATA CARD 


NSP= NUMBER OF SPECIES - EIAMPL2 BELOW NSP*1 
NJV*NU2BER OF SUBDIVISIONS OF INPUT DISTRCBUTICN FUNCTION 
EXAMPLE BELOW NJV=22 

NMC=HUH3ER OF FINAL CELLS - EXAMPLE BEL OR NMC=150 
NHP=HAX NUMBER OF MOLECULES OF EACH SPECIES ALLOWED IN PROGRAM. 
IF EXCEEDED, PBOGP.AM EITHER FAILS OR RESTARTS AT BEGINNING 
WITH NUMBER REDUCED BT 1 0 • - EXAMPLE BELOW NMP=5000 

NPB=MAXIMUM NUMBER IN EACH CELL - EXAMPLE NP3=150 


DIMENSION DBA (1, 150) ,NB (1, 150) ,N5? (1, 150) 

DIMENSION THP { 1, 150) ,TMPA (1,150) ,XV(1, 150) ,IVA (1,150) 
DIMENSION XV (1,1 50) ,TTA (1, 150) ,2V (1, 150) ,ZVA (1,150),DB (1,150) 
DIMENSION TEP (1, 150) ,TRPA (1, 1 50) , HBM (1 , 150) 

DIMENSION NBN (150) ,T(1, 1, 150) 

DIMENSION LB (5000) , LM (1,5000) ,EB (1,5000) 

DIMENSION PAU(1, 5000), PAV(1, 5000) ,PAW(1,5000) 

DIMENSION PAX (1, 5000) ,PAT (1,5000) , PA Z (1 , 5000) ,LCOL (1 ,5000) 
DIMENSION FNB ( 150) ,XC { 150) , TC ( 150) ,ZC (150) 

DIMENSION VEL (22,4 , 1) , PET (22,4,1) 

DATA NSP/1/,SJY/22/, NMC/150/, NHP/5000/, NPB/1 50/ 


2 FORMAT (/17X,» NORMAL TERMINATION OF THE PROGRAH') 
NAEELIST/DIH/NSP,NJV ,NMC,HHP, NPB,NBAN 

INITIALIZATION OF RANDOM NUMBER GENERATOR - PRINCETON ROUTINE 


NRAN (1)=0 
NRAN (2) = 0 
NRAN (3)*0 
NRAN («)=0 


TIE: GKBIHT AUG82 


A 


PRINCETON UNIVERSITY TIME-SBA2ING SYSTEM 


PRINTOUT OP MAJOR AEEAI DIMENSIONS USED ABOVE 
WRITE (6, DIM) 


CALL OF MAIN OPERATING PHOGEAH WHICH EEQOIEES INPUTS: 

OCONTEL, GTISES, CFLOBEF, &BOLEC, CSHAPES, &GEOa,CIHCOPL / &INOBT 
THESE INPUTS ARE ALL CUEBEKTLI IN THE- BASEL 1ST FORMAT 
AND SAY HAVE TO BE CHANGED IF THAT CONVENTION IS NOT AVAILABLE 
BBIEF DESCRIPTION OF THE PARAHETERS FOLLOWS 
GCOHTBL - ONE OCCUREEHCE (BEN OB BESTABT) 

PARAHETEE DEFAULT DEFINITION OR EXPLANATION 

RASE 8 BLANKS AHY ALPHA N0 MERIC BASE UP TO 8 CHARACTERS 

TITLE 2U BLNKS ANY ALPHANUBEEIC TITLE UP TO 2tt CHARACTERS 

PERCNT .001 ACCURACY IN INTEGRATION PROCEDURES 

ICOPY 1 NUBBER OF ADDITIONAL COPIES OF OUTPUT 

DUHP .TBUE. IF TRUE -WILL CAUSE SYSTEM DUB? FOR ANY OF 12 

- PBOGBABMEE DESIGNED ERROR HALTS. 

DEBUG (1) .FALSE. IF TRUE WILL PRINT MESSAGE WHEN CELL POP. EXCEEDS SN3 
DEBUG (2) .FALSE. IF TRUE WILL PRINT CPU TI5E AROUND EACH PAET OF LOOP 

DEBUG (3) .TRUE. IF TRUE SILL PRINT CPU TIHE REMAINING AT END OF LOOP 

SEN .TRUE. IF TRUE - NEB RON - IF FALSE - RESTART OF RON 

s * v ? .FALSE. IF TRUE - SNAPSHOT SAVED ON TA?E(9) FOR RESTART 

R2D0 .FALSE. IF TRUE PROGRAM BILL AUTOBATICA LLY .RESTART WITH 90S 

OF TOTAL IF TOTAL CELL POPULATION EXCEEDS BBS 

OTISES - OHS OCCURRENCE (NEB OS RESTART) 

PARAHETSR DEFAULT DEFINITION OR EXPLANATION 

DTH - - - BEAL NUBBER - FRACTION OF BEAN FREE TIHE PER CTCLE 

*?S “ “ * INTEGER - NUBBER OF CYCLES PEE SAMPLE 

“ ” “ INTEGER - NUMBER OF CYCLES BETWEEN PRINTOUTS 

TST - INTEGER - ESTIMATE OF NUMBER OF CYCLES TO STEADY STATE 

- - - INTEGER - TOTAL NUMBER OF CYCLES TO END OP RUN - 

BILL TERMINATE SCONER IF CPU TIME IS TO BE EXCCEDED 

EFLOREF - ONE OCCURRENCE (NEB RUN ONLY) 

PARAMETER DEFAULT DEFINITION 

1LH INITIAL NUMBER OF MOLECULES LLM<SNM< OR = NBP 

H J* n - - - MAXIMUM NUMBER OF MOLECULES PER SPECIES 

HKB - MAXIMUM NUMBER PER CELL - DIAGNOSTIC ONLY 

BSP - NUBBER OF HOLECU1AB SPECIES (SAX. IS 3) 

SET 0 IF 0 - DATA IS IN SI (METRIC) UNITS 

IF>0 - DATA IS IN ENGLISH UNITS 
0 - - - FLOW VELOCITY (H/SEC) OR (FT/SEC) 

ANGLE - - - INGLE OF ATTACK (DEGREES) 

0.0 AREAY GIVING SOLE FRACTIONS OF SPECIES IN FREE STREAM 

O.o AREAY GIVING BOLSCULAR WEIGHTS C" SPECIES ABOVE 

... FREE STREAM TEMPERATURE (K OR R) 

DENF FREE STEEA3 NUMBER DENSITY (NUH/3**3 OR NUH/FT«*3) 

EHOLEC - ONE OCCURRENCE (NEB RUN ONLY) 

PARAMETER DEFAULT . DEFINITION 

TRF r ' - “ - REFERENCE TEMPERATURE FOB BOLECULAB DATA 
DIR 0.0 CROSS-SECTIONS AT REFERENCE TESP. (BSPXBSP) 

ET1 -•••- 0.0 PARAMETERS IN DIFFUSION AND VISCOSITY LAW (HSPXSS?) 

PHI 0.0 PARAMETERS FOR ROTATIONAL RELAXATION (MSPXMSP) 


. C-2 


0F «*,■* , 
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PRINCETON ONIVEBSITI TIHE-SHARING SISTSB 


CHI 

ACB 


0.0 ROTATIONAL DEGREE OP PEEEDOH Pi BA ESTER (HROT/2 - 1) 

.001 ACCURACY IB BOLECULAR COLLISION CALCULATIONS 


6SBAPES - ND«-1 OCCOBBENCES WHERE KD*NU HBEB OP BODY SEGHEHTS (NEB BUN) 

pabaheteb default definition 

FIRST OCCUERENCE 

BODY (I) I>3 - - NEED NOT BE SPECIFIED 


BODY (1) 
BODY (2) 
BODY (3) 

BODY (1) 

BODY (2) 
BODY (3) 
BODY (I) 
BODY (J) 


START OF BODY (ISTABT) IN ABBITBABY COORDINATE 
0.0 TEBPEBATUBE AT FRONT OF TUBE IN K OB B 

0.0 DIASETER OF TUBE IN BETERS OR FT. 

SUBSEQUENT OCCURRENCES (ND) 

- X COORDINATE PROB FRONT OP BODY OP THE DOWNSTBEAH 

EDGE OP THE CURRENT BODY SEGHEHT 

TEBPEBATUBE AT THE BACK OP THIS BODY SEGHENT 

SWITCH - IF NOT 0.0 THIS IS THE LAST SHAPES CARD 

ETEH ALPHA - ENERGY ACCOBODATION COEFFICIENT FOB SPECIE S 

ODD SIGHA - TANGENTIAL ACCOBODATION COEPF. FOR SPECIES 

AND J < (4 + 2*BSP) 


6GEOH - ONE OCCUERENCE (NEW RUN ONLY) 

PARAHETEB DEFAULT DEFINITION 

NVEDG INTEGER GIVING THE NU HBEB OF WEDGES WITHIN 180 DEGREES 

HW RUBBER OP FIRST LEVEL CELLS IN X DIRECTION 

NH - RUBBER OP FIRST LEVEL CELLS IN RADIAL DIRECTION 


GIKCOPL - 

PABAHETEB 

PLUXIN 

PCOL 

RHP 

JV 


KHX 


ONE OCCURRENCE (NEW BUN ONLY) - ?NPUT DISTRIBUTION 
DEFAULT DEFINITION 

1.0 FLUX INPUT IR TERRS OF FREE STREAH FLUX - ONE 

NURBER FOE EACH SPECIES 

0.0 FRACTION OP A REIVING HOLECLUES THAT HAVE 

PREVIOUSLY COLLIDED 

- RATIO OF "CAVITY" PRESSURE TO THE EFFECTIVE 

PRESSURE OF TEE INCOMING STREAM AT ENTRANCE 

THE NUMBER OF VELOCITY INTERVALS FOR DISTRIBUTION 

FUNCTION INFORMATION 

4 NUMBER OF COMPONENTS OF DISTRIBUTION 

K SX = 3 IF NO ROTATIONAL ENERGY (CBI=-1) 

KHX=4 IF ROTATIONAL ENERGY IS INCLUDED (CHI>- 1) 


vINOUT - MSP*KMX OCCURRENCES 
PARABETER DEFAULT DEFINITION 


VARG (J) 


MT DESIGNATES SPECIES 

K=1 DESIGNATES NORMAL VELOCITY 

K=2 DESIGNATES TANGENTIAL VELOCITY IN FLOW DIRECTION 
K=3 DESIGNATES TBAN SVERSE TANGENTIAL VELOCITI 
K=4 DESIGNATES ROTATIONAL ENERGY 
VELOCITY BOUNDARIES FOR DISTRIBUTION FUNCTION 
1<J<JV VELOCITI BOUNDARIES 


CURV (J) 


PROBABILITY OF VELOCITY (OR ROTATIONAL ENERGY) 

INCIDENT AT ENTRANCE BEING BELOW TiBG(J) 


A SABPLE INPUT DECK IS GIVEN BELOW: 
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2LE: GKBIRT 


ADG82 


PRIBCETOH tJHITEBSITT TIHE-SHARXHG STSTEH 


GCOKTHL v ABE* ' ISTE* , ' BH AL’ , TITLE=* PAR* . • ABOL* . • A AT',' 95K»,‘H ', 

rfrTm „ nT «- 010 ITS=5.ITP=1 000,TS?=400 f YLI!!=1 000 GEHD 

^FLOREF LLH=2000, RRH-50 00 , HHB= 150 , RSP* 1 , HET=0, 0*7485. 9, AHGLE=28. ,BND=1. ,2 0., 
R»i = 2fi 9tt 0 0.„TF*19S.51,DENF 3 =2.52E + 19 GEND 

XHOLEC TRF=1000,DIR=3.5B-19,ETA=. 104, PHI=0. 0, CHI=-1 . , ACB*.001 GSHD 
G SHAPES BOD Y= 0.0, 1000., .00235 SEND 
*5SH APES BODY*. 0025, 555. ,0. 0,2*1. 0 GEND 
GSE APES BODY* .0050, 345. ,0.0, 2*1.0 GEND 
/SHAPES BODY*. 0 10Q , 300. ,0 . 0 , 2* 1. 0 SEND 
‘GSHAPES BODY*. 0200, 300. ,0 . 0, 2*1 . 0 GEND 
X SB APES BODY*. 0 300, 300 . ,0 . 0 , 2* 1. 0. GEND 
X SB APES BODY- • 0400,300. ,0.0, 2* 1.0 GEND 
C SHAPES BODY*. 0500 , 300. ,0 • 0 , 2* 1. 0 GEHD 
G SHAPES BODY*. 0600, 300. ,0.0, 2*1 .0 GEKD 
j SHAPES BODY*. 0700, 300 • ,0. 0 , 2* 1 . 0 GEKD 
GSHAPES BODY*. 0800, 300. ,0. 0, 2*1 .0 GEHD 
G SHAPES BODY*. 0870, 300. , 1.0, 2*1. 0 GEND 
GGEOH HHEDG=2,NV*20,NH=3, GEND 

GINCDPL FLO TIN* 2. 1429,?COL=1. 0 , R3P*0. 0, JV*22,KKX*3 GEND 

.815, . 84 5, • 872, .900, .922, .951, .975, .988, .996, 1.00, 6 END. 3 5 7 9 , 

.871 , . 932, .962, .984, .995, . 999, 3*1. 0, GEND ,-113579. 

'’■ s ”?”3lt“5r7?7:;TJ!:co;?i*»J?o:7oo3:7oi3;ro3«7-6s*.:«9;:a56;-i66::6ti.:762. 
.871, . 932, .962, .984, . 995, .999, 3*1.0, GEHD 

CALL RTJK (SSP,HJT,55C,NHP,H?3,DBA,HB,H3T,TSP,?2PA,XT,XVA,I7, 

1T7A,Z7,Z?A,T,DB, ?RB , XC, TC , ZC , LH, PAU , PA 7 , PAS , P AI, PAT, 

2PAZ,LC0L,TR?,?B?A,E?,LB,RBH,HBH,7EL,PFT) 

WRITE (6,2) 

STOP 

EHD 

SOBROOTINE RON (RSP, NJY , RBC , R3P, H?B, D3A , RB, RBT. THP. THPA , IT, IV A, 

1 IT, TV A, ZV,Z7A,T, DB, FHB, XC, TC , ZC, LH , P AO , PAT, PAS , PAX , PAI, PAZ, 

2LCOL .TRP.TEPA.ER.LB, H3H,V3N, VEL, PFV) 

HAIR ROHHIHG PROGEAH ** BON *** CALLS ALL OTHER SDRODTINES 

^^***^#** ************************************************** *********** 

XHTEGEB*2 LH,LCOL 

IHTEGEB* 2 LB , K BH , H BN , N B , H BT 

IRTEGER PRT, SA HP ,TST, TLIH,TI HE , Q . 

LOGICAL DOHP, DEBOG (3) , SATE, RES, REDO 
BEAL IKTGRL, LA H , HO ,R0 , JAT, RAT 

DIHEHSIOH BTA (3) ,C1 (3) ,C2 (3) ,C3(3) ,C7 (3 1 ,C8 (3 I ,DFA (3) « ,FL (3) 

01 BEKS ION FDN (3) ,BTI (3) ,HTR (3) , JRT (3) , KHH (3) , RB(3) , SB (3) 

DIHEKSIOH NAHE (2) .TITLE (6) ,, PHIf3 3 , 

DIHEHSIOH END (3) ,BHA (3) ,WTH(3) , CHI{3) , _ DIR (3, 3) »DAH tf,3) , ' 

DIHEKSIOH ETA (3,3) , CH8(3,3), CHG (3) ,CHG (3) , CH (3, 3, 3) ,CH (3, 3, 3) 


ORIGIN Ai p ' - 
0F POOR QiiAUiy 


file 
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1 


PBIHCETOH OIIYEBSITT TIHE-SHARIHG STSTEH 


DIHEHSIOH 
DIHENSION 
DIHEHSIOH 
DIHEHSIOH 
DZHEKSION 
DIHEHSIOH 
DIHEHSIOH 
SI BEKS 10 K 
DIBENSION 
SIBENSION 
OIBEKSIOK 
DIBEKSIOS 
DIHEKSXOH 
DIBEKSIOH 
DIHEHSIOH 
DI HEHSIOH 
DIHEHSIOH 
DIHEHSIOH 


CTI (3,3) ,CtR (3,3) ,CHI (3,3) ,CHB (3 ,3) ,SH (3) , ST (3) 

DI (3) , D2 (3) ,D3(3) ,D4 (3) ,BODI (15) ,DBG1 (3,3) ,LIHIT (10) 
COEFF (4) 

XLIH (2) , NCOL (3,3) 

ICB ( 1 8) , IS (1 8) , TCB (18) ,TB (18) , ALPHA (3, 18) .SIGRA (3, 18) 
HTS (3, 18,12) ,OTL (3,18, 12) ,0TT(3, 18,12) 

ITS (3 , 18,12) , BTSI (3, 18, 12), HTS (3, 18, 12) 

UT1I (3,18, 12) ,OTTI (3,18, 12) ,VTSI (3,18, 12) 

EHT (3 , 2) , BEH (3, 2) , FLUXIH (3),FCOt(3) 

VARG (42) ,CORV (42) ,XFLOX (3,2) 

IB (HHP) , HBH(HHC) , HBB (KSP,HHC) ,LH (NSP,HSP) 

EB (HSP,HHP) ,TP.P (HSP, H3C) ,TBP1 (HSP,HHC) 

DBA (HSP, HHC) , HB (HS P, HRC) , HBT (HSP, HHC) 

THP (HSP, HHC) ,TKPA(HSP,HHC) ,X7 (HSP, HHC) , XVA (HSP, HHC) 

T7 (HSP, NBC) ,TVA (HSP,HBC) ,Z7(HSP,HHC) ,Z7A (HSP, HHC) 

T (NSP, HSP, HHC) , DB ( HSP, HHC) 

FHB(HHC) , XC (HSC) ,TC(KfiC) ,ZC(HHC) 

7EL (HJ7 ,4, HSP) , PPY (KJV,4,HSP) 


DIHEHSIOH PAO (HSP, NHP) , PAY (HSP,NHP) , PA W (HSP, HHP) 

DIHEHSIOH PAX (HSP, HHP) ,PAT (HSP, HHP) ,PAZ (HSP, HHP) ,LCOL(HSP, HHP) 


t 


9 


COHHOH /RAHCOH/REAK (4) ,KAHLS 
COfiHOH /FIRST/NL, Ni,NH 
COHHOH /SECHD/BH, BH,BHP,BHK, 
COHHOH /THIRD/PI, HBE5, S, SINA 
COHHON /FORTH/HBX,EK,XR,DOHP 
COHHON /FI FTB/HD,TIKE , DTH , TI 
COHHOH /SIXTH/RSB, XSTAFT,IKH 
COHHOH /SYKTH/LAH, BO, NO, HT,H 
COHMON/EIGTH/DENF, D, TP, ANGLE 
HAHELIST/CONTRL/KAHE ,TITLE, P 
HA HELIST/TIHES/DTH , ITS, I TP, T 
KAEELIST/FLOREF/LLfl, HKH, MSB, 
KABELI ST/ROLEC/TEF,DIR,ETA,P 
HASELIST/SHAPES/30DT 
HA HE LI ST/GEO H/NKEDG, Nir,HB 
KABELI ST/I NCOPL/PLCXIN,FCOL, 
HAHELIST/IHOCT/TA BG, COBY 
DATA IC/0/,ICOPT/1/ 

DATA DBG 1/' GAS*,' AT ','110 
1*303 •/ 

DATA LIKIT/12,9, 18,500, 3600, 
DATA TITLE/* *,* 

DATA HAHE/' *,* •/ 

DATA CPC/0. 0/,CPH/0.0/,CPB/0 


BUR0460 


BHF • 

KG, COSANG, AKH, 1KT, AKH 1 , IKK 2, ART 1 ,AKT2 
, C9, LL (3) , LLB 

,ITS,ITP, TST, TLIR, BHA, RH 0, DIB 
, HNS, HHB, NEB, SAVE, PERCHT, HSR, TB 
, J,X, I,Z, TOSE 

,TBF,CHI,PHI,ETA,VTH,DAH,VELB, IRE? 
EFCNT , ICOPT, DO HP, DE30G, HEW, SAVE, REDO 
ST, 7LIH 

HSP, BET, 0, ANGLE, RKO, BHA, TF, DEKF 
HI , CHI , ACB 


RHP, JV,KHI 

' , * FLOS * , * AT *,*130 *,* RON',* AT *, 

V ‘ 


70,900,3,20,3/ 

t i 


.0/,CPJ/15.0/ 


•**************************************-******************************* ** 


RUH0520 
BONO 530 
R0N0540 


ROB0580 

BON0570 


BDN0630 

RON0640 

RUN0660 

ROH0670 

R0NO68O 

ROH0690 


FOBHATS 

1 FOBHAT ( 1 H 1 ) 


BOH0700 

BOH0710 

BOH0720 

ROH0730 

R0N0740 

ROH0750 


! 
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’ILE: GKBIKT AUG82 A 


PKIBCETOH UNIVERSITT TIHE-SBABXNG STSTES 


2 FOR HAT (1 H 1/1 7X, ' BARI FIED SUPERSONIC FLON OF EXH1BT GAS',T74, 'I') HUN0760 

3 FOBH AT {* ♦ ' ,1031, 1 COPT *,12) BUN0770 

4 FOBHAT (/17l, 'FLOS THROUGH ALL THE BOUNDARIES '/5X, • HT ', 5X, • HASS HOL 

IE FH. * , 10X, • FCOL. FLU XI N FLUXES (ENT)*) 

5 FOBHAT (3X,I«,F9.2,F9.4,5X,4F10.4) 

25 FOBHAT (/5X,' PRESSURE RATIO (INSIDE/ENTRANCE) - EITHER TTPE *',F13.5 

1,» RHP',T76, 'I */6X, ‘DENSITY RATIO (INSIDE/ENTRANCE) - EITHER TTPE 

2=',F13.5,» RHN* ,T76 # »I'/9X, 'FLUX RATIO (INSIDE/ENTRANCE) -EITHER 
3TTPE =',F13.5,* BHF' ,T76, 'I'/) 

26 FOBHAT (//10I,' FLUX RATIOS FOR SPECIES RHA = ' ,F7. 2/2X, • BOUNDABT* , 

1* INFLUX REFLUX NET FLUX NET FLUX/BHO*U»/2I, 'ENTRANCE* , 

24F10.4/4X, 'CAVITY* ,4F10. 4/) 

30 FOBHAT (' 1TIHE = • , F6. 3, 60X, • RANDOH NUHBEE GENERATOR HAS BEEN CALLED 

I ',110,' TIHES' ) RUN0800 

31 FORHAT (' CPU TIHE LEFT- ',F8.3) RUN0810 

32 FORHAT (7X, '-HOLECULES- »/3X, 316) 

33 FORHAT ( ' TIHE = ', F8. 3 , 5X, » COLLISION LOOP* • , F8. 3 , 5X, • HOVE LOOP * • 
1,F6.3,5X, 'TOTAL TIHE = » , F8. 3/21X, * 2ND HOVE LOOP =',F3.3,5X, 

2 'CLEANUP LOOP*', P8. 3, 4X, 'PARTICLE 5UH3ERS = ',416) 

34 FORHAT (91, '-HCLECULAR COLLISIONS- '/3 (31 1 4/) ) 

35 FORHAT (21, '-COLLISIONS KITH SURFACE- • /3X , 3 13 ) 

36 FORHAT (• RAX2SUB NU5BER OF HOLECULES SO FAB- ',16//) RUN0880 

38 FORHAT (' EXCESS HOLECULES OCCURRED IN ',344) RUN0890 

40 FORHAT (/' SOSETHING IS WRONG KITH BOI NUH3ERISG IN RUN • /9I5 , 5 E 1 4 . RUNO 900 

15) 

44 FORHAT (' KB (' ,12,' ,' ,14, ' ) POPULATION EXCEEDED ',13,' IS HAIN AT TRUN0930 

II HE =. ', F7. 3) RCN0940 

50 FORHAT (///' SNAP SAVED OS TAPE') RUN0950 

: RUN0960 

;»***********************************«**************************•»****** 50 SO 97 0 
I R0N0930 

CP A* EL TIHE (0) 

I CALL NOUNDF 

CALL TRAPS (0, 1, 1000000, 1 , 1) 

LI HIT («)=NHC 
LI HIT ( 5) =N HP 
LIEIT (6) =KP3 
LIHIT (7)*NJ V 
LIHIT ( 10) *SSP 
KAKLS=0 


PI*3. 141593 RUN1030 

PIB00T=S3RT (PI) RUN1040 

BET=0 

LAHGE=0 RUN1060 

NL*1 RUN1080 

DURP*. TRUE. BUN1190 

DEBUG (1)*. FALSE. 

DEBUG (2)*. FALSE. 

DEBUG (3) =. TRUE. 

SAVE*. FALSE. RUN1230 

NEW*. TBUE. „ * BUN1260 

REDO*. FALSE. ' RUN1240 

PEBCHT*. 001 RUN 1250 

ACR*. 001 
DO 58 1*1, 15 
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58 BODY (I) =0.0 
DO 60 1*1/3 
RNO (I) *0.0 
RHA (I) *0.0 
CHI (I) =0. 0 
FLOUR (I) *0.0 
PCOL (I) *0. 0 
LL (I)*0 

DO 59 J* 1. 18 
ALPHA (I, J)* 1.0 

59 SIGHA (I, J) *1.0 
DO 60 K= 1, 3 
ETA (1/ K) =0.0 
PHI (I, K) =0.0 

60 DIR (I, K) =0. 0 
WRITE (6/ 1) 

READ (5« COKTRL) 
WRITE (6/ COKTEL) 

IF (HEW) GO TO 103 
REWIKD 9 

READ (9) DEHF/O/XR] 


ROH1330 

BOK1340 


ROH1360 

RON1370 


READ ( 9 ) DENF.,0,XREF,TRF,KAWLS,NL,NW, RH, BV, BH/HREG,XLB,ILC, PI .HD, 

2 S/SINANG, COSANG, ARN,AKT,RBX, BH , XR, TIRE, DTH ,TI, ITS, ITP,TST, 

3 TLIH,RHA ,RN0 , DIR, XSTART, ABB, HNB, TR*BZC »CN7 ,DRF , ?CF , FNA , 

4 HTF/IKH/LLE, NAY , N5AX , NWEDG, PET, SASP, ARM, AXK2, AKT1 , AKT2, 

5 BTA/C1 , C2,C3,C7,C8, DAS, DP A, FL, DELABG/PDK, HTI*HTB, JNT ,KNS, 

6 NH,WTE,C4, VER, NCOL, CT I , CTB , C HI ,C KR , SH, 

7 ST,D1,D2,D3,D4,NRAN,VELR, BSP , R 3N , F.HF, IFLUX, PLOXI N, 

8 XLIH , COEFF/XCB, XS , YCB , TB, ALPHA , SIG HA , STS , 

9 OTL, OTT, VTS, P.TS, HTSI , ENT, RES, TRPA , 

A DBA,BB,NBT,THP,XV,XVA,TV,IVA,ZV,ZVA,T,DB,PSB,XC,YC,ZC, 

B PA 0, PA 7, PAW, PAX, PAT , P AZ , LCOL , LB, 

C ETA, PHI,CEI,CN,CB,CNG,CSG,CS8,TRP,TEPA ,KSP , A NGLE ,TF, 

D OTLI,OTTI, 7TSI ,ER,RKB,LB, NBS, NBN , 7EL,P FV, FCOL, J7 

DTHO=DTS 
READ (5, TIMES) 

WRITE (6, TIRES) 

IF (DTK.EQ. ETKO) GO TO 100 
AIBE=TIBE*DTKO 
TIHE=AIH£/DTH+0. 1 
DO 99 J=1,NS? 

DO 99 L= 1 , 2 

EHT ( J, L) =EKT (J,L) * DT3/DTHO 
99 COKTINOE 

100 IF (TI.GT.0.0) TST=TI/DTH 
WRITE (6,2) 

WRITE (6, «) „ _ 

WRITE (6,5) (ST, RSA (ST) ,RSU(HT) ,FC0L(HT) ,FLUXIN(KT), (ENT (ST, K) ,K=1,2 

1),BT=1,KSP) 

WRITE (6, 2) 1 

CALL PRINT A (NWEDG, TITLE, NASE, XCB, TCB, TB, ALPHA, SIGSA, XLIB, 

1COEFF, LI HIT, ESP) 

CALL PRINTS (FNA, HS P, FNB, NS, XLI S, XC, IC, ZC,NB, NSP) 

GO TO 280 1 

103 READ (5 ,TIHES) 

WRITE (6, TIRES) 
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ILE: 


BEAD (5, FLOBEF) 

SRITE (6, FLOEE?) 

BEAD (5,BOLEC) 

WRITE (6, BOLBC) 

X? (BSP. GT. LIBIT (10) } CALL DIa ' 1 0 , LI3XT (1 0) , ESP) 

CBIH=0.0 
BBB-0.0 
DBB=0. 0 
ETT=0. 0 

DO 105 8=1, BSP 
BBR=ESB+BHA (B) *SH0 (H) 

CRIB'CBIB+CHI (B) *£HU (H) 

105 COKTINOE 

DO 115 K*1,BSP 
DO 115 B*1,HSP 

ETT=£TT*RNO(H) *RHO (K) *E7A (H,K) 

SR8A*S0RT{.5*RK2* (1./RBA (B) ♦1./E!1A(K))) 

115 DSB*DHB*RSU (H) *SH0 (K) *DIR (fl,r.) * (TBP/TP) *«(ETA (S,K)./2.) *SBSA 
XBEP«1./(DESF*D3B»1.a 1« 2 1 «) 

VEL2=SQBT ( 16628. 6«*T?/R«2) 

IP(BET.HE.O) VELB=SQRT (994 37. 9 2*TP/R3R) 

TBB=XBE?/V£LR 
S=0/V ILE 
NREG= 1 
ND= 1 

BEAD (5, SHAPES) • 

WRITE (6, SHAPES) 

ICB (1)=BODY (1J/XBEP 
TS (1)=BODT (2) /TP 
XIIS (1)=XC3 (1) 

XSTART=XLIS(1) 

RHB=. 5*BODT (3) /XBEP 
TR=TB ( 1) 

104 READ (5 # SHA?£S) 

WRITE (6, SHAPES) 

KD«BD*1 

IF (SD. GT.LIKIT (3) ) CALL DI AG (3 , LI KIT (3 ) , ND) 

XCB (HD)=B0DT (1) /XRE? 

TB (HD) =BODT (2) /TP 
DO 110a B= 1 , BSP 
ALPHA (B, HD) =BODT (2+2*B) 

1104 SIGH A (B, ND) =BODT (3*2*S) 

IP {TB (KD) .GT.TR) TR=TB (HD) 

IP (BODI (3) . EQ. 0. 0) GO TO 104 

HSTEP=HREG-H 

XLIB (HSTEP) =XCB (HD) 

COEFP (1) =0. 0 

COEPP (2) =1.0 

COEPP (3) =0. 0 

COEPP (4) =-BSB**2 

XB=XLIH (HSTEP) -XSTABT 

AKH=1./XB 

A!CT=. 5/BHB 

RHPP 1=TB (1) ** (. 5+ETT/2. ) / (2. *PIBOOT*S) 

BBPP2= TB (KD) *« ( . 5+ETT/2. ) / (2. *PIBOOT»S) 


RUH1640 
BON 1 650 


BON1670 

BOH1680 
BOS 1 690 

BOH1770 
BOH1 800 
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AKN1=AKN*B HEP 1 
AKN2=AKN*BHFP2 
AKT1=AKT*RHFP1 
AKT2=AKT*RHFP2 
DO 260 8=1,3 
DO 260 8=1,3 
HCOL (H,H)=0 
260 CONTIK0E 

BEAD (5, GEOS) 

READ (5, INCOPL) 

WRITE (6, GEOS) 

WRITE (6, INCUPL) 

DO 116 J=1 , 4 2 
VARG (J)=0.0 
116 COB V (J)=0. 0 

RHN=R3P*TB (1)/TB (ND) 

BHF=SQRT(RHN*R3P) 

BB=RSB 

BW=XR/NW 

BB=BK/NH 

IP (NEEDG. GT. LIBIT ( 1) ) CALL DIAG (1, LI HIT (1) , NBEDG) 
IF(HNH.GT. LIBIT (5) ) CALL DIAG (5, LIHIT (5) , BNH) 

IP(BNB.GT. LIHIT (6) ) CALL DI AG (6, LIHIT (6) , HFB) 

DELANG= 180./NWEDG 
SIKANG=SIN (ANGLE/180. *PI) 

COSANG=CTOS <ANGLE/180.*PI) 

VOL=PI*RH*R3*XR 
NBX=NV*NH* RWEDG 

IF (NBX.GT. LIHIT (4) ) CALL DIAG (4, LIHIT (4) , NBI) 

IP (JV. BE. LIHIT (7) ) CALL DI AG (7 , LIHIT (7) , J V) 

BB=SQRT (TR) 

SRHX=0.0 
DO 916 HT= 1 , BSP 
BTB (HT) =BH A (BT) /R3B 
BTA (HT)=SQBT (WTH (BT) ) 

SR (BT) =S*3TA (BT) 

SRT= SB (BT) •PLOXIK (HT) /RND (BT) 

IF (SF.T.GT. SRKX) SRHX=SRT 
916 CONTINUE 

INR=LLH*SQRT (TB (1) ) /PIBOCT/SHHX/ ( 1. + R3N) 

DDN=IHH/VOL 
DO 140 8T= 1, HSP 
PD»(HT)=RN0 (HT) *DD N 
DPA (HT) =RKD (HT) 

SN (HT) =SR (HT) *COSA NG 
ST (BT) =5R (HT) *SIKANG 
DO 117 K= 1 , HSP 

DAH (K,HT) =DIR (K, HT) * (TRP/TP) ** (ETA (X, HT) /2.J/DHR 
CN8(K,HT)=DDN/DAH(K,HT) *1.414214 - 
BT*AHIR1 (BTA (K) , BTA (HT) ) 

TR 1=S*3. * ( 1. ♦SQRT (TB) ) /BT 

TR2*3. *SQRT ( (1. * 2 . *5**2/ (5. +CHI3) ) * ( 1./TTH (K) ♦ 1./WTH (HT) ) ) 
CB (K, HT, 1) =AHAX 1 (VP.1,VR2) 

CH(K,HT,1) =RAND(0) *CH(K,HT, 1) 

DP=PHI (K,HT) * (CHI (K) +CHI (HT) *2.)-1 


FDN2200 


BUN2230 

R052240 

R0N232 0 
RUN2330 

BDN2420 

RON2470 

BUN2480 


RDN2740 

ROK2750 
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DS=PHI (K,3T) *(2.-. 5* ETA (K,HT) )-1.0 
DO 917 H=2,3 
XPBeACR**AHIN1 (DP, DS) 

IE ( (DP. GT. 0.) .AND. (DS. GT . 0 .) ) XPH = (DP/ (DP+DS) ) **DP* (DS/ (D w * DS1 1 **DS 
XPR-ACR**ASAI1 (DP, DS) 1 

IP ( (DF.LT. 0. ) . AND. (DS. LT. 0. ) ) XPN= (DP/ (DP+DS) ) **DF* (DS/ (DP+DS) ) **DS 
CH (K, BT, N) =XPB-XPN ' 1 " DS 

CN (K,BT,N) =EAND (0) *CH (K,5T,N) 

DF=CHI (K) 

DS=CHI(MT) 

917 CORTINUE 
117 CORTINOE 

DO 118 K=1 , KHI 
READ (5,IN0UT) 

WRITE ( 6, INOUT) 

DO 119 J=1,J7 


7EL ( J, K, HT) =VABG ( J) 

PP7(0,K,HT)=CURV (J) 

118 CONTINUE 

ENT (ST,1)=ISS*S*DTH*AKK*?I,UXIS (ST) /ENU (ST) 

EKT (HT # 2)=RHK*ENT (HT, 1) *SQRT (TB (ND) /TB (1) ) 

8Ea(ST,1)«0.0 
P.EB (ST,2) = 0. 0 

r»i a ILr^ !I 2* i,If!0CT * (1 * * 3 = N) * SS ( s -)/SCRT (TB (1) ) *PLUXIN_(ST) /ENU (2T) 
wc* =Cn I ( S « } * 

IP (CHT.GT. 0. ) CSG (ST) -CHT»*CBT*EX? (-CHT) 

IF (CHT.EQ. 0. ) CBG ( BT) *1.0 

IP (CHT.LT.0.) CBG (ST) = ACR»*CHT«EXP (-ACR) 

CNG (BT) =BAND (0) *CBG (ST) 

190 CONTINUE 
IS (1)=0.0 
DO 155 N=2, ND 

155 IS (N) * (.5* (XC3 (N) + XCB (N- 1 ) ) -XSTAHT) * AO 
TCB ( 1) *0. 0 
DO 160 K= 2 , ND 

160 TCB (N) =2. * (XCB (N)-XC3 (N- 1) )/BB3 

*W,KH, XSTART. DELANG, HWEDG. XC.TC. ZC.PN3) 

f 5 A - 0 * 0 


BUN3330 

SUN3380 

BUN3390 


DO 210 N=1 , N3X 
710 FKA=FNA+FNB (N) 
BPX=NBX 
220 TIKS=0 
LARGE=0 
SASP=0 
PBT*0 
NA 7=0 
AIKE=0. 

TI=0. 0 
DT=DTH 
HKAX=0 

DO 250 BT*1 ,3 
Cl (BT)-RARD(O) 

. C2 (HT)»EAND(0) 

. C3 (BT) *B AND (0) 
;C7 (HT) *RAHD (0) 


BUN 42 50 
RUNU260 
RUH4270 

RUN4290 

RUN4300 

BUR4310 

RUN4380 

RUH4410 

RUN4420 

RUR4430 

RUR4440 
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C8(HT) =RAND(0) 
D1 (HT) =F.AHD (0) 
D2 (ST) =BAHD (0) 
D3 (HT) =RAHD (0) 
DU (HT) »EAB D (0) 
EL (BT)*0. 

HTI (HT)=0. 
BTR(HT)=0. 

JNT (BT) =0 
NH(HT)=0 
IFLUX (BT* 1 ) =0 


RDN4450 

RUN4460 

R0N447O 

R0H4480 

RUN4490 

B0H4500 

RUN4510 

R0H452O 

R0N453O 

B0N4540 


IFLUX (ET,2)=0 
DO 230 K = 1,3 

R0N4550 

CTI (BT,N) =0. 

RUN4560 

CTR (BT,K) *0. 

RUN4570 

CNI(HT,N)*0. 

RUN4580 

CNR (BT,F) *0. 

RUN4590 

DO 240 N=1 ,ND 

RUN4600 

DO 240 K* 1 , HIEDG 

RUN4610 

NTS (HT,N,K)=0 

RUN4620 

BTSI (HT, H,K)=0. 

RUN4640 

DTLI (HT, H, K) *0. 
DTTI (BT, N,K)=0. 


VTSI (3T,N,K)=0. 

OTL (HT,H,K) =0. . • 

RUN4650 

tJTT (BT, K, K) =0. 

RUN4660 

VTS (BT, K, K) =0. 

RUN4670 

HTS (HT,N,K) *0. 

RUN4680 

DO 245 N=1 , NPX 

RDH4690 

NB (BT, N) =0 

RUN4700 

HBT (HT,N) =0 

RUN4720 

DBA (HT,K) =0. 

RUN4730 

XVA (BT ,N) =0. 

RUN4740 

TV A (HT,H) =0. 

RUN4750 

2VA (BT,K) =0. 

RUN4760 

TBPA (HT, H) =0. 

FUN4790 

TRPA (HT, K) =0.0 
DO 245 N N- 1 , NS P 
T (HT, NN, N) =0.0 
CONTIS DE 

RUN4800 

CONTINUE 

FND=DDN 

DRF=2./(PKD*S*S*RBB*RH3*PI) 

RUN4930 

FCF=1./(FND*S*BHB*RHB*PI) 

R0N4940 

BTF=.5*DRF/S 


WRITE (6, 2) 

WRITE (6,4) 

WRITE (6, 5) (HT, RB A (HT) , RNU (HT) , FCOL (BT) ,FLUIIN (HI) , 

(ENT (HT,K) ,K=1,2 


1),RT=T,BSP) 

WRITE (6,2) 

CALL PBIKTA (NWSDG, TITLE, HA BE,XCB,TCB, TB, ALPHA, SIGBA, ILIB, 
1COEFP, LI BIT, BSP) 

CALL GAS (H HEDG, DELANG, ND, BTA ,C 1 , DFA, HB, FHB, DB, KB, NBB,NBN, 

1 PAD, PAT, PAW,PAX,PAT,PAZ,XLIH,CO£FF,LH, LIBIT (4) , LIBIT (6) ,XCB,TB, 
2LABGS, BHH, BHB, DEBUG (1) ,LCOL, BSP, £B,CBI,CEG,CRG, BSP, LB) 


R0H5OOO 
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CP0TYM=T?IND(O) R0H5060 

IP (LASSE* NE. 0) GO TO 345 
DO 265 1*1 , RSP 

1HSP/ N3H) 

CPA=ELTIHE (0) Me ,_. 

CPI=CPA BOAS 130 

GO TO 340 B0N5140 

280 TISB=TIEE+1 

IP {TIME. HE«TST*1) GO TO 205 
TI=TST*DTH 

DO 282 HT= 1 , MSP 
IP-LOX (ST, 1)*0 
282 IPLOX (ST,2)“0 
265 LABGE=0 

CPI=ELTIME (0) BON 5 170 

AIHE«TIM2*DTS 

P?T*PPT*1 * ROK5190 

1 LIMIT (4) , "LIMIT ( 6 ) , ETA., PHI ,CHI«CS8-/HSP* SBS) ROS5220 

KNM{1)*0 B0N5230 

KNB (2) =0 
KNH (3) *0 
C?C= ELTI22 (0) 

IP <D! 

CALL 
1DELANC 

3P AX, PA I * P A Vi LCOL ,T 3 , SSP,EH,CET,CNG,C3G,!ibr’,J.i.i.J-,uA- k -*' — ' ROI!526 o 

KN3 (1) = N S (1) B0SS290 

KNM (2) =NR (2) 

KNB (3) = NM [3) 

S"SS“)‘? , .«I« 1 e.33)lI«.eK. c »..CPI.C»..CPi. (.»(«. 1-1. 3>.«» 

TBI=T3(ND) nRrp Q] C7,C8,SNT,BE!l,LCOL,ftSP, ,Sfl,ST, 

IP (LARGE. KE. 0) GO TO 345 

CPB-ELTIM E (0) r9r rpm CPI.CPB.CPA, (KM(I) »I=1 ,3) » snAI 

IP (DEBOG ( 1 )) WRITE (6,33) AIME/CPC/CPH, I^CP L x H IT (8) /LIMIT (9) . 

CALL HOTE{1.AKN,NHEDG,XSTART,LiaiT(3) /LiEiil •) ctt.cTR, 

1DELASG, BTA/d/CS^D? A , 7L» HTI/^HTB/^OBT/ KAM^MR, XC3 , XLIH, CTI^C^ ^ ^ 

DO 330 ST* 1 , MSP BOH5420 

DO 290 H-1/HBX ;« ■ BON5450 

SB (ST,H)=0 . . 
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290 


295 


305 


300 


310 


CONTINUE 

NG*Nfi(ST) 

N=0 
N*N* 1 

IF(N.GT. NG) GO TO 310 
X*PAX (BT,N) 

T*PAT(HT,N) 

Z=PAZ(HT,N) 

F=SQET(T*T+Z*Z) 

TANG=180. *ATAN2 (Z,-T)/PI 
INDGE=TANG/DELANG+1 
IP (INDGE.LT. 1) IBDGE* 1 
IF(XRDGE.GT.NWEDG) INDGE=N VEDG 
L=X/BB 

IP (L. GE. Hi) 1*NW-1 
B=F/BH 

IP(B.GE.NH) fl*NH-1 
K=NBEDG» (L*NB+S) ♦! BDGE 
IP (K. LE. NBX) GO TO 305 

»BITE(6,40)L,E,I»DGE,NB,NH,NWEDG,K,BT,N.X,T,Z,H,TANG 

IP(DOHP) CALL ABEND (4) 

STOP 

J=HB (ST# K) *1 
IP (J.LE. 5NB) GO TO 308 
IP (DEBUG ( 1 ) ) KRITE(6,«4) 

NB (ST, K) = J 
LB { N) = K 
GO TO 295 
CONTINUE 


ST, K, 8NB, AISE 


BUN5470 

BUN5480 

RUN5490 

BUN5500 

BUN5510 

BUN5520 

B0N5530 

RUN5540 

RUN5550 


BUN5610 

RUN5620 

BUN5630 

BUN5640 

RUN5660 

RUN5680 

HUH5690 


RUN6400 

RUN6430 


NBS (ST, 1) =0 
DO 320 fl=1 ,N3X 
A=NB (RT, S) 

DB (ST, S) =A*DFA (BT) /PNE (3) 

NBS (BT, B ♦ 1 ) = N B E (ST, K ) ♦ NB (ST, H) 
NBN (E)=NBS (ST, S) 

320 CONTINUE 

IF (KB (ST) . GT. KBAX) KSAX=K3 (RT) 
DO 325 K=1,NG 


RUN6450 

EUN6480 

RUN6490 


RUN6500 

FUN6510 


BUN6520 


0=LB (N) 

NBN (Q) -NBN (Q) ♦ 1 
NA=NBN (Q) 

325 LB (BT, BA ) =H 
330 CONTINUE 

IF (SASP. LT. ITS) GO TO 335 
CALL A CCUH (NBC,NPB,PHB,HB, PAU,PAV,PAK,EF,THP,TRP,XV,TV,ZV,LB,HSP, 

I KSP f N3K) 

IP (TIBE. LE. TST) GO TO 335 BUN6570 

CALL A 7BGE (PNB, DB, DBA, NB, NBT, XV, TV, ZV, XVA, IYA, ZVA,THP, THPA ,TEP ,TF° 

1A,BSP, ESP) ' 

NAV=NAV+ 1 RUN6&00 

335 CPA==ELTIBE (0) RUN6600 

CPI=CPC«-CPB*CPB«-CPA 

CPJ=2.*CPI«-5. 

340 CPUTTB*TPIND(0) 
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ILE: GKBIHT A0G82 


PRIHCETOK 0 KITES SITY TISE-SBABIKG STSIE3 


sgKai ) "s i S'Si“°' e,e ' c "- e "*“*» 1 ' 

IP ( (TIHE.GE.TLI3) . OR. (CPUTTS.LE.CPJ) ) GO TO 345 
IP (PRT.LT.ITP) GO TO 280 
PRT=0 

3«5 WRITE(6,30)AI3E,KAWLS 

I? (DEBUG (3)) WRITE (6,31)CPUTT3 
WRITE (6,32) (KB (I) ,1=1,3) 

WRITE (6, 34) ( (RCOL (I,J) ,J=1,3) ,1-1,3) 

WRITE (6, 35) (JHT (I) ,1=1,3) 

IP (LARGE. HE. 0) GO TO 360 
WRITE (6,36) NHAX 
IP (.HOT. SAVE) GO TO 355 

REWIKD*9^* ^*^®*^®TI3.GT.CPJ. AKD.TI3E.LT.TLIH) GO TO 355 

WHITE (9) Of5FjO,XREy,TH? : K1WLS.NL, EG, XLB r XLC # PI,HD # 


RUF6650 
RDN6660 
BtTN6 670 


R0N6740 

RUN6750 

RUN6900 


2 

3 

4 

5 

6 

7 

8 
9 
1 
B 
C 
D 


AXN, AKT, NBX, BH, XB,TIf!2, D?*% TI, ITS, ITP* TST, 
R^ a Tw2 A r'f! D i?5 B,3CS:rABT#fl!,S ' “ S5 ' TB ' BZC /CN7,DHf # FCP f FNA, 
^ #N ! AXrKW2DG/PaT ' SAi " P ' ^N1 # AKN2,AKT1,AK?2, 
»3 A i52 / 5?^ 3#C7#C8 ' DA!!#DFA/Plf BELAKG,FDN,HTI,HTR, JNT,KNJ5, 

nh,*t«,co, vp a , ncol,cti,cte,cni,cnf,sn, 

V£LR ' R?1P ' R3K,B!5F,IFL0X,FLUXIN, 
XLIH.COsFF.XCB, XS f TCS, T3, ALPHA, SIGMA, NTS, 
tJTL.UTT, VTS,HTS,HTSI, ENT , EE?. , T .IP A , 

cfn r D?i N « T i Tf!?/IV# I7A/ T7/ Y,VA,27#ZVA#T# d 3*FNE,XC, YC,ZC, 
PltJ,PlV,PAfc, P1X,PAT,PA2, LCOL , LS , 

H. i i ? ^'^ 3I ' CK,C!, » C,:S ' CSG ' cs9 » T 'P/I2PA,3SP, ANGLE, TP, 

B8TTp ™ I,0T - 1 ' VTSI,ER,E3B,L3, HE3,HBH,VEL,P?V,PCOL, JV 

355 COHTINUS 

WRITE (6, 25) R3?,E«H,RS? 

DO 3 56 HT= 1 , as P 
PIK1-EKT (3T, 1) 

PIK2=EKT (3T, 2) 

BP1=I?LOX (ST, 1) *DTH/DT 
RP2-IFLUX (BT, 2) *DT3/DT 
BNP1=1.-R?1/FI51 

BKP2= (PIS2-R?2)/?IK1 
B?S1=RHF1*?LDXIH (ST) /RRU (»T) 

B?S2=R5P2*FLUXIN (BT) /R HO (3T) 

356 T»/mTip'^ 6) o E!!A{a?, ' FIN1 «' HF1 ' S!,F1 »EPS1,PIK2,RF2,BHP2,EPS2 
IF (TI3E. EQ.O) GO TO 280 

IP (TIHE. LE.TST) GO TO 350 

1CTB^CKI^CHR) (DT,C0S4KG ' SINABG ' BSA,EI,n ' DRr ' ?CF ' aTP/FI " HTI ' HTR ' CTI ' 

GO TO 353 
350 COKTINOE 

,a A »« R ® IR * < ‘i" SP#Clil ' RKD ' 8SP ' TBP » rD,, ' ,,Ia » 0B « ,, B,T3P,XT,IT,ZT, 

»U, NB,XC, TC,ZC) 

353 IP (DEBUG (2)) WRITE (6,1) 

IP ( (TIHE.LT. TLI3) .AND. (CPUTTH.GT.CPJ) ) GO TO 280 


ROH705O 


HUK6860 
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ORIGINAL PAGE IS 
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ILE: GKBINT A0G82 A PRINCETON ONIVERSITY TIHE-SHARIIG SISTEB 

IF(IC. Efi.ICOPT) RET0RR" 

IC=IC*1 RDN7080 

WRITE (6, 2) 

WRITE {6,4) 

WRITE (6, 5) (RT, ESA (HT) , RN0 (HT) ,7C0L{HT) ,FL0XIN(HT), (ENT (KT,K) ,K=1,2 


1) , HT* 1 , BSP) 

WRITE (6, 2) R0K712O 

WRITE (6, 3) IC R0N713O 

CALI PEIRTA (KWEDG, TITLE, BABE, XCB, TCB,TB, ALPHA, SIGHA,ILIH, 

1COEFF, LIBIT, BSP) 

CALL PEIHTB (FNA,BSP,FNB,NM,XLIR,IC,YC,ZC,NB,NSP} 

SAVE*. FALS E. BGK7180 

GO TO 345 R0N719O 

360 WRITE(6,38) (DBG1 (I, LARGE) ,1=1,3) HDK7200 

IF {(REDO) . AND. (TIHE.LE.TST) ) GO TO 364 

IF(D0HP) CALL ABEND (9) R0N722O 

STOP B0N7230 

364 CONTIN0E 

IF (NEW) GO TO 365 
REWIND 9 


BEAD (9) DENF, 0, XREP, TRF, KAWLS , NL, NW, NB, BV, BH, HREG, XLB, XLC, PI ,KD, 

2 S,SIKANG, COSANG, AKN, AKT.NBX, BB,XR,TIBE,DTB,TI, ITS, ITP,TST, 

3 TLIB,RHA,RNU,DIR,XSTART,BNH,HN3,TR,BZC,CK7,DRF,FCF,FNA, 

4 HTF,IKS,LLH,NAV,NSAX, NWEDG, PRT, SAHP, AKN 1, AKK 2, AKT1 , AKT2, 

5 BT A, Cl , C2,C3, C7,C8,DAR,DFA,FL, DELAKG,FDN,HTI ,HTB, JNT,KNB, 

6 NB,WTB,C4, YRH, NCOL , CTI , CTR, CHI , CNf*, SN, 

7 ST,D1,D2,D3,DO,NRAN, VELR, EHP ,R R5 ,EHF,I FL0X,FL0XI N, 

8 XLIH,COEFF, XCB, XS,YCB,T3, ALPHA, SIGHA, NTS, 

9 0TL,OTT,VTS,HTS,HTSI, EKT,REH,TBPA, 

A DBA, NB , KBT ,THP,XV,IVA,TV,YVA,ZT,ZVA,T, DB,FNB,XC, TC,2C, 

B PAD, PAY, PAW, PAX, PAX,PAZ,LCCL,LB, 

C ETA, PHI, CHI, CN,CH,CNG,CBG,CN8,TSP,TRPA, BSP, ANGLE, TF, 

D 0TLI,OTTI, VT3I , EB.BMB, LB, N2B,N BN, VEL,PPV,FCOL, JV 

365 AKK*INH R0N726O 

I N H= 9 * A H S/ 1 0 

DDB=. 9*DDN 

DRF=D?.F/. 9 

FCF=?CF/.9 

HTF=HTF/. 9 

DO 370 BH* 1 , BSP 

FDN(RB)=FDN(HK)*IKH/ANH 

LL(HB)=9*LL(HH)/10 

DO 366 KK= 1, BSP 

366 CN8 (KK, HR) *CN8 (KK, HR) *.9 
DO 370 NK=1,2 

ENT(SH,NK) *ENT (BH, NK) *INS/ANH 
370 REH (HR, NK) *0.0 

IF (NEW) GO TO 220 

TST*TIHE*TST 

TI*0. 

PRT*ITP 
WRITE (6, 2) 

WRITE (6,4) ( 

WRITE (6,5) (BT, RHA (HT) , RND (HT) , FCOL (HT) ,FL0XIN(»T) , (ENT (HT, K) ,K=1,2 * 

1) ,HT*1,HSP) 
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^ T -E: GKBINT AUG 82 


PRINCETOE UNIVERSITY TIME-SHARING SYSTE3 


WRITE (6,2) 

IF((LARGE.EQ.2) .OR. (LARGE. EQ. 3) ) GO TO 280 
REDO*. FALSE. 

GO TO 360 
END . 


SUBROUTINE DIAG (N, ITEST , HUM) 
REAL*8 PARA3(10)/* NWEDG E ' , * 
1 BNH',* HNB 1 , • NBX* • 


NREG f , • 
NS* * 


ND*, ■ 
HJ* , • 


NPX # ,* 

BSP 1 / 


F0E5ATS 

32 FORK AT (9X, • ENT, RE3, ENTS, REHS, FTH, THETA, DTH») 

42 FORHAT {///5X,43H ARRAT DI3EN SIONS ABE ABOUT TO BE VIOLATED./) 

44 FORHAT (5X, 17H HA XI HD 3 VALUE IS, 15, 19H, WHEREAS YOU INPUT, 15, 3B 
1A8, 1H) ) 

56 FORHAT (/5X,78H I? YOU DESIRE TO USE THIS VALUE, THE FOLLOWING 
US HUS? BE 2E-DIHE SSIOKED. /) 

62 FORHAT (9X, , HTS,H7SI, NTS, NTS?*, UTL, U??,7TS •) 

64 FORHAT (9X, * XLI H, CO EFF * // 1 1 X, * NOTE THAT TEE XLIH ARRAY BUST BE 
1NSIONED TO 3 KORE THAN TEE COEFF ARRAY. * ) 

66 FOR HAT (9 X, 'XCB,XS, IC3 , TB , AL? HA , SIGH A • ) 

6 8 FOEHAT (9 I, * DBA , N5 , NBT, THP, THPA , I V , X VA f Y7 , TVA, 2 V, ZYA, T, DS*) 

70 FORHAT (9-X, , PAr,?AV # PAW,PAX,PAY,PA2,LCOL l ) 

72 FOEHAT (8X,3H LH) 

74 FOEHAT (//5X, 76H IF YOU CHANGE THE AREA: DIMENSIONS, ALSO CHANGE 
IE 'LIMIT* DATA STATEMENT. ) 

75 FORHAT (91, 'ALL ARRAYS ASSOCIATED WITH SPECIES* ) 

76 FORHAT (9X, *?N2,XC, YC,ZC*) 

78 FOEHAT (9X, »FV, NTCV , NTCF ,MS,IWS,SL, DELS ,TA NGN * ) 

80 FOEHAT (9 X, • YEL, PFV 1 ) 


AR 


DIKE 


WRITE (6,42) 

WRITE (6, 44 ) ITEST, NDH, PARAS (N) 
WRITE (6, 56) 

GO TO (1,2, 3, 4, 5, 6, 7,8*9, 10) , 
WRITE (6, 62) 

WRITE (6,32) 

GO TO n 
WRITE { 6, 64) 

GO TO 11 
WRITE (6, 66) 

WRITE (6,62) 

GO TO 11 
WHITE (6, 68) 

WRITE (6,76) 

GO TO 11 
WRITE (6,70) 

GO TO 11 
WHITE (6, 72) 

GO TO 11 


RUN7410 
DIAGO 1 0 


DIAG 04 0 

DIAG050 

DIAG060 
DIAG 070 
DIAG080 
DIAG 09 0 
DIAG100 

(# 

DIAG 1 20 
EADIAG1 30 
DIAG 14 0 
DIAG 15 0 
XEDIAG 160 
DIAG 170 
DIAG130 
DIAG 190 

DIAG210 
TH DIAG 220 
DIAG230 

DIAG240 
DIAG250 
DIAG260 
DIAG 270 
— DIAG 25 0 
DIAG 2 9 0 
DIAG300 
DIAG3 10 
DIAG 32 0 

DIAG340 

DIAG350 

DIAG370 

DIAG390 

DIAG400 

DIAG420 


DXAG440 

DIAG460 


016 
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.ILE: GKBIKT AUG82 1 PRINCETOW UNIVERSITY TIME-SHARING SYSTEM 


7 WHITE (6,80) DIAG480 

GO TO 11 

8 WRITE (6,78) DIAG500 

GO TO 11 

9 WRITE (6, 80) DIAG520 

GO TO 11 

10 WRITE (6, 75) 

11 WRITE (6, **4) 

STOP DIAG540 

i..T DIAG550 

SUBROUTINE PBINTA (NWEDG, TITLE, NAME, XCB,YCB,TB, ALPHA, SIGMA, XLIH, 

1COEFF, LIMIT, ESP) 

INTEGER TST,TLIM,TIHE PRA0030 

LOGICAL SAVE, HEW . - PBA0040 


DI KEHSIOR LIMIT (1) , TITLE (6) , NAME (2) , XCB (1) ,ICB (1) ,TB (1) 

DIMENSION ALPHA (3, 1) , SIGMA (3, 1) ,XLIH (1) ,C0EFF(4) 

DIMENSION RRU (3) ,R HA (3) , CHI (3) , DIB (3, 3) , PHI (3, 3) , ETA (3,3) 

DIMENSION WTH (3) , DAM (3,3) , PELS (3) ,XSP (3) 

COMMON /PIRST/NL , NW, NH 

COMMON /SECND/BW ,BH,RHP,RMN,RMP 

COMMON /THIRD/PI, N REG, S, SIN AN G, COSANG, AKN, ART, AKN1 , AKK2, AKT1 , AKT2 
COMMON /PORTH/NBX, RM, XR, DUMP', C9,LL (3) , LLH 

COMMON /FIFTH/ND, TIKE, DTH,TI, ITS, ITP, TST , TLIM, BMA, ENO, DIB PRA0100 

COMMON /SIXTH/RMB, XSTA RT, I NM, MNM, MNB, N EW, SATE, PEECNT,NSR ,TB 
COMMON/EIGTH/DENF, U, TF , ANGLE, TRF , CHI, PHI , ETA ,WTM, DAM , VELR, IBEF 
DATA NOT/' NOT •/ PRA0120 

PBA0130 

PEA0140 

PRA0150 

FORMATS PRA0160 

PRA0170 

1 POBMAT(16X,40 (•-*) , T7« , * I • //9X , • 3-D* ,12, '-FLUID PROGRAM - •) 

2 FORMAT (' ♦ • ,3 IX, A4) PBA0190 

3 PORMAT (• ♦' ,35X, 'A RESTART OF A PREVIOUS RUN* ,T74 , ' I' /I 2X, 2PR AO 200 

1 A4 , • - * ,6A4, • - • , 12 , * REGIONS', T74,'I', 16 (/T7a, 'I')) PEA0210 

4 PORMAT (7X, 'FRONT OF BODY =',E12.4,' XSTAET MAI HEIGHT =',E12.4,» 

1RRB' ,T74, • I'/7I, 'BODY TEMPERATURES =',P12.2,' T FR.STRH. F12, 2, 

2' T ENTR. 1 , F12. 2 , ' T CATITY'/7I, ' X— LIMIT', T37, 'BODY COEFFICIENTS', 

3T74, •!•) 

6 PORMAT (5P14. 6,31,' I') PRA0240 

10 PORMAT(1X,72('-')) PRA0250 

12 FORMAT (//14X, 'PARAMETERS OF SEGMENTS FOR BODY COLLISIONS ' ,T96, • I'/ 

181, ' X-COORD. TEMP. ALPHA1 ALPHA2 ALPHA3 SIGMA 1 SIGMA2 
2 SIGMA3 AREAS', T96, 'I') 

14 FORMAT(4X,E12.4,7F9.4,E12.4,T96,'I') 

17 FORMAT (///25I, 'ARRAY STORAGE USED'/5X, 16, • * • , 1016 ,T96 , • I' ) 

18 FORHAT(1H1/17X, 'LENGTH OF CELL IN HEAN-FREE-PATHS .= ',F12.4,' BW' 
A,T76,*I» 

1/17X, ' HEIGHT OF CELL IN MEAN-FREE-PATHS = '.F12.4,' BH',T76,'I' 

2/16X,' NUMBER OF LI CELLS ALONG FLOW AXIS =',113,' NW*,T76,'I' 

3/17X, 'NUMBER OF LI CELLS IN RADIAL DIR. =',113,' NH',T76,'I' 

4/21X,' NUMBER OF LEVELS OF CELL -SIZE =',113,' NL',T76,'I') 

23 FORMAT (3X, 'NUMBER OF AZIMUTHAL WEDGES WITHIN ',13,' DEGRESS =',IPBA0A70 
113,' NWEDG I'/) 
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’LE: GKBINT AHG82 A 


PRINCETON UHIVERSITT TIHE- SHARING SISTEH 


2* FORMAT (1 6X , • BASIC TIME INTERVAL FOB COLLISIONS =',213.4,' DTH 

1 I'/8I, • TIBS IHTEBTAL POB SAMPLING PLOW FIELD INPO = ',£13.4,' DTS 

2 I'/24X,*TIH2 IHTEBTAL FOR PRINTING =',213.4,' DTP I’/9X, 
3*TIHE TO STEADI-STATE CONDITIONS (ASSOSSD) =',213.4,' TST I'/ 
419X, •TIHE AT WHICH RUN IS TEB5INATED =*,£13.4,' TLIH I'/) 

25 FORHAT (/5X , • PRESSURE RATIO (INSIDE/ENTRANCE) - EITHER TTPE =»,F13.5 

1, » EBP' ,T76, • I * /6X, ' DENSITT RATIO (IHSIDE/ESTB ASCE) - EITHEB TTPE 
2»',F13.5,' RHN* ,T76, 'I'/9X, *FLDI RATIO (IHSIDE/SHTRAHCE) - EITHEE 
3TIPE *', P13. 5, ' BBF ' , T76, * I* ) 

26 FORMAT (51,'FREE ST BEAR NCBBER OF HOLECOLES - EITHER TTPE **,113,' 

A IHfl I '/9X, * INITIAL NOBBER OF HOLECBLES - HA XI BOH »*,I13, 

1* LLH I'/9X,*HAXXB0H NOBBER OF HOLECOLES - EITHER TYPE ='.113 

2, * HNH I'/U 


3PE 


,113, 


BEB 


, -BAX NOBBER OF HOLECOLES IN AHI CELL - EITHEB TT 


I') 


27 FORHAT ( /22X, 'VELOCITT OF FREE STREAM FLOW ■',213.4,* 0* ,T76 ,* I* /I 

19X, 'SPEED BATIO OF FREE STREAM FLOW =',E13.4,* S ' , T76, • I '/I 9X, • SAC 
AH NOBBER OF FREE STREAM FLOW =*,E13.4,* H« ,T76 I»/1 9X, « SPECIFIC H 
BEAT RATIO (CALCOLATED) =• ,E13. 4, • GABHA • , T76, *1 •/ 35X,'ANG 

2LE OF ATTACK =',F13.4,' ANGLE I*/16X, • NOBBER DEHSITT OF FREE ST 
3REAB FLOW ■',E13.4,* N ' ,T76, * I */1 9X, ' TSHPEPATOBE OF FREE STF.EAH FL 
*1®* *'.F13.4,* TF' , T76, • I '/16 X, • MOLE FRACTIONS OF FREE STREAB FLOW 
5=',3E13.4,' RNO I'/16X, ’ HOLECOLAR WEIGHTS OF SPECIES ABOVE =',3F13 
6.4,' RSA I'/18X, 'INITIAL NOBBERS OF SPECIES ABOVE =',3113,' LL I* 

28 FORHAT ( /I OX, • REFERENCE TEMPERATURE FOR HOLECOLAB DATA =*,F13. 4 • 
1TRF' ,T90, »I'/14X, « CROSS- SECT ION' , 26X, • TEHP 2IP0SENT' ,190, ' I' /3 (3X, 
23E 12.4,31, 3F12.6,T90,'I'/)/ 5 X, • CHI/2- 1 • , 1 1 X, • BOTATI ON AL PARAMETER 
3 PHI* ,T90,'I*/3 (F12. 4,51, 3P12.6.T90, 'I'/) ) 

29 FORHAT (/9X, 'DATA SAVED ON TAPE 9') 

30 FORHAT ( 31X, ' REP HOLECOLAR SPEED =',213.4,* V ELS • , T76 , • I' /2 OX , • S? 

1ECIES FREE STREAB HOLECOLAB S? BEDS • , T7 6 , • I • /1 4 X , 3E 16 . 6 ,T76 , • I • /26X 
2, 'REFERENCE MEAN FBEE PATH =',E13.U,* XREF',T76, 'I'/26X, 'SPECIES 8 
3EAN FREE PATH S ' , T76, • I • / 1 4 X, 3B16 . 6 ,T76 , • I ' /I 1 X , • LONG ITODI N AL KFDDS 
42N NUSBEB (FREE STEM. ) = • , E 1 3. 4, • AKN • , T76 , • I ' / 1 3 X, • TEA NS VERS E KNUD 
5SEN NO HE EE (FREE STBS. ) = • , El 3 . 4 , • AKT' ,T76, ' I*/1 IX,' LONGITUDINAL K 
6 KUDS2N NOB SEE ( ENTRANCE )=',E13.4,' AKN 1 • , T76 , ' I ' /1 31 , » TR AS S7 ER SE 
7 KHODSEF FOBEEB ( ENTRANCE )=',213.4,* AKT T ,T 76 , » I'/ 1 IX, • LONGITOD 
8INAL KNODSEF NOHBEB ( CAVITT )«',S13.4,» AKN 2 • ,T76 , • I • /I 3X, • TRAN 
9SVERSE KNDDSEN NOHBEB ( CAVITT J=',E13.4,* AKT 2 • ,T 76 , • I ' ) 


PR AO 6 90 

_ PRA069O 

I A RR AT=7 08+LIHIT (3) * (32*56*LIHIT (1) ) ♦20*LIBIT (2) +LIHIT (4) * (1 20*4*LPRA071 0 
1IHIT {6} ) *56* LIBIT (5) + LI HIT (8) * (68*96*LIHIT (9) ) ♦2 0*LIMIT(7) +224«LIMPR A0720 

«miM p *“”° 

IF (FEW) WRITE (6, 2) NOT PRA0750 

WRITE (6,3) NAME, TITLE, KREG PHA076O 

WRITE (6, 4) XSTAET,BHB ^0770 

DO 100 1 = 1 , NREG 

100 WRITE (6,6) XLIH (1*1), (COEFP (J) , J=1 ,«) ° 

* praoboo 

do no 1 = 1 , nd 

110 WRITE (6, 14) XCB(I) ,TB (I), (ALPHA (J.I) ,J= 1,3) . (SIGMA (J,I),J=1,3) ,ICS 
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ILE: GKBINT A0G82 1 


PRINCETON UNIVERSITY TIRE-SHARING' STSTEH 


♦ 


1 (I) 

HRITE (6, 10) „ 

WRITE { 6, 17) I ARRAY, (LIBIT (I) ,1=1,10) 
HRITE (6, 18)BH,BH,NH,NE,NL 
IETA2= 180. 

HRITE (6,23)IETAZ,NHEDG 

DTS=DTfl*ITS 

DTP=DTfl*ITP 

AST=DTB*TST 

ALIH=DTB*TLIH 

CHT=0. 0 

DO 120 J= 1 , HSP 
120 CHT=CHT+CHI ( J) *?.NU (J) 

GAHHA* (7. *2. *CHT) / (5. *2. *CHT) 


AH=S*SQRT (2. /GAHHA) 

HRITE (6, 24) DTH, DTS,DTP, AST, ALIN 
HRITE (6,26) IRH,LLH,HNH,BNB 
HRITE (6, 25) RH P , RHN , RB F 

HRITE (6, 27)U,S , A 5, GASH A, ANGLE, DENF,TF , (RKO (I) , I s 

HRITE {6, 28) TRP, ( (DIR (I,K)»K=1,3), (ETA (I»K) »K=1 ,3) ,1 = 1,3), (CHI (I) 
1 (PHI (I , K) , K= 1 , 3 ) ,1=1,3) 


‘1,3) , (RBA(I) ,1 = 1, 


DO 210 1*1,3 
VELS (I) =0. 0 
210 XSP(I) =0.0 

DO 220 J= 1, BSP 

YELS (J)=VELR/SQRT (STB (J) ) 

XT=0. 0 


PBA0850 

PBA0880 


PBA0940 

PBA0950 

PBA0960 

PBA0970 


PBA0980 


3 


DO 215 E=1,HSP 

215 XT=XT+RN0 (K) *DAE (J,H) *SQRT ( 1 . ♦ NTH (J) /VTK (5) ) 

220 XSP (J) =1. 414214*XREF/XT 

HRITE (6, 30) VELR, (VELS (I) ,1=1,3) , XREF , (XSP (I) , 1= 1, 3) 
1AKN1 , AKT 1, ANK2, AKT2 
IF (S AYE) HRITE (6,29) 

RETOBH 

END 


AKR, AKT, 


PRA1 040 
PRA1050 
PRA1060 


SOSEOOTIKE PRINTS (FN A , 8SP,FNB, SB, XLIR, IC, YC, ZC , NB , N) 

IKTEGER*2 KB 

DI SESSION FKB (1) , K B ( 1 ) , XLI5 ( 1) , XC (1 ) 

DIHENSION YC ( 1) , ZC (1 ) » HB (H, 1) 

COHHON /FI RST/NL, N S, NH 

COBBON /TBIRD/PI,NREG,S, SI NANG, COSANG, ANN, AKT 
COBHON /FORTH/NBX 

FORBAT (2X. 1 ’ CELL GEOHETRI- 


1 «/2X, 'BOX LEVEL 


POSITION OF C ENTER YOLOHE 

THETA', 12X,' TOT 


PBB0070 

PRBOOBO 

-PRB0090 

PBB0100 


2INITIAL POPULATION'/2X, » NOB. ' , 12X, ' X',7X, • Y 
3A1 BACH SPECIES CELL*') • , , , . 

3 FORBAT(1X,I4,I5,3X,2F8.3,F7. 1 , B1 2. 3, 2X,I«, 2X ,315, 3X, IjO 

4 FOB BAT (21, * TOTALS — , E12. 4 ,8X, 315) 

HRITE (6,1) 

HBITE (6, 2) 

DO 200 1=1, NBX 

X= (XC (I) ~XLIIS (1) } =AXN 


PBB0150 

PBB0170 

PBB0180 
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T*TC (I) *1KT*2.0 
IX=X*N»*1 
IT*T*KH*1 
H1=KB(1,I) 

H2=0 

IF (HSP.GE. 2) B2=NB (2,1) 

H3=0 

IF (HSP.GE. 3) fi3=HB (3,1) 

140 BRITM6?3) B II,IT,I,T,ZC (I) , FNB (I) , HH,H1 ,R2,H3,I 
200 COHTINUE 
HH2=0 

IF (HSP.GE. 2) RS2=KH (2) 

NH3=0 

ir (HSP.GE. 3) RH3=KH{3) 

WRITE (6, 4) FBI, HH (1) ,BB2,NH3 

RETURN 

BSD 


PRB0370 


PRB0390 

PBB0400 


SUBROUTINE CELL (A, B, KW , KH, TO , DELING, HWBDG, XC,TC, 2C,FR3) 
DISEHSIOK XC (1) , YC (1) , ZC ( 1 ) , ( 7 ) 

COH. HOB /TB I ED/PI 


THE PURPOSE OF THIS SUBROUTINE IS TO • ______ 

1 COHPUTE THE VOLOBE OP EACH CELL (ILL 3 POSSIELE LE - 
1HD STORE TEE RESULT IB THE 1RR1T CALLED ' FNB*. 

2 CORPUS'S the X, R, AND THETA COOP.DISATES OF TEE CEB.-B OF 
EACH CELL (ALL 3 POSSIBLE LEVELS) AND STORE THE RESULTS 
AHRATS CALLED 'XC*, 'IC, AND 'ZC* . 


CELL030 
— CELL040 
CELL050 
CELL060 
CELL070 
CELL080 
CELL090 
INCELL 100 
CELL1 10 
CELL 120 
— CELL 130 


1=0 

X=XO-0. 5* A 

FACTOR=DELANG*?I*2*S*A/130. 

DO 110 K* 1 , KW 
X= I* A 
T=-. 5*3 
DO 110 l=1,KH 
T=Y*B 

2=-. 5* DELING 
DO 110 8=1 ,HIEDG 
Z=Z*DELAKG 
1 = 1*1 
XC (I) -X 
TC (I)=I 
ZC(I)=Z 

110 FNB (I) “FACTOR* (2*L-1) CBLL360 

BBTORN CBLL370 

BHD 


SUBROUTINE IHPACT (RS,G1,G2,G3,ET,EI,PHI,CBI,BTA,X8,CIB) 
COHH OH/THIRD /PI 
IF (PHI.EQ. 0.) GO TO 20 
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IF (CHI.EQ.O.) GO TO 20 
DF=PHI»CHI-1. 

DS=PHI* (2.-.5*ETA)-1. 

E=ET*EI 
10 X=RAND (0) 

IF (X.EQ. 0- 0} GO TO 10 
XT=X**DF* (1.-X) **DS 
IF(XT-GT.IM) GO TO 15 
CIB=CIB+XT . 

IF (CIS.LT. XB) GO TO 10 
CI8=CIB-XH 

15 ET« (1.-PHI) (1.-X) *PHI*E 
EI= ( 1 PHI) *EI+X*PHI*E 
20 GP=SQRT (ET/RH) 

EP=2.*PI*RAND(0) 

CSX=2. *RAND(0)-1. 

SSX=SQBT (1.-CSX**2) 

G1=GP*CSX 
G2®GP*SSX*COS (EP) 

G3=GP* SSX* SIB (EP) 

BETORH 

END 

SOBROOTINE GAS (NWEDG, DELANG, ND, BTA,C 1, DFA, NM ,FNB, DB, NB,NBM,NBN, 

1PAO, PAV, PA V, FAX,PA?,?AZ,XLIB, COEFR , LB, 12, 13, XCB, TB , LARGE, 
2HNM,HNB,DEBUG1,LCOL,IP,ER,CHI,CNG,CMG, I, LB) 

IKTEGER*2 LB (1,1), LCOL (1,1) , LB ( 1) , NBS (I, 1) , NBB (1) 

INTEGER*2 NB 

LOGICAL DDBP, DEBOG 1 GAS0060 

DISENSION BTA ( 1) ,C1 (1) , DFA (1) ,NB(1) ,FNB(1) ,CHI (1) 

DIBENSION DB (I, 1) ,NB (I, 1) , PAD (I, 1) ,PAV (1 , 1) , PA V ( I, 1) 

DIMENSION PAX (I, 1) ,PAY (1,1) ,PAZ (I, 1) , ER (I, 1) ,CC£FP (4) ,XLIB (1) 

DIBENSION CNG (1) , C NG (1) , XCB ( 1) ,TB (1) 

C03S0N /FIRST/NL, NW, NE 

COBBON /SECND/B5,BH, EBP, RBN, P.SP 

COBBON /THIED/PI,NRZ3, S.SINANG, COSANG, AKN, ART 

COBBOS /FOBTK/K3X, EK,XE,DUKP,C9 / LL (3) 


GAS0160 

THE PURPOSE OF THIS SUBROUTINE IS TO GAS0170 

1. COMPUTE THE INITIAL VELOCITY OF EACH HOLECULE. GAS0180 

THE VELOCITY ARRAYS ARE 'PAU', 'PAV', AND 'PAW*. GAS0190 

2. COMPUTE THE INITIAL POSITION OF EACH MOLECULE. GAS0200 

THE POSITION AREAYS ARE 'PAX', 'PAY', AND 'PAZ*. GAS0210 

3. CREATE AN ARRAY WHICH STORES THE CELL POPULATIONS- GAS0220 

•NB' FOB THE ACTUAL POPULATIONS GAS0230 

4. CREATE A CROSS-REFERENCING ARRAY (WHOSE CONSTRUCTION IS GAS0250 

INDICATED BY A COMMENT CARD) CALLED 'LH'. GAS0260 

5. COMPUTE AN ARRAY WHICH STORES THE NUBBER DENSITY IN EACB GAS0270 

CELL GAS0280 

GAS0290 


2 FORMAT {/• SOMETHING IS WRONG WITH BOI NUMBERING IN GAS'/9I5,SE14.5 
1 //) 

3 FORBAT (/• SOHETHING WRONG IN CELL VOLUMES IN GAS*/5X,5I5,2E14,5) 
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fl FORHAT {• N3 (' #12/ ' ,* #14, * ) POPOLATIOH EXCEEDED ',13,' IB GAS') 

CP=1.-BBH**2 
DO 180 BT=1,IP 
11*0 

110 B=H+1 

IF(N.GT.LL(BT) ) GO TO 180 
IF (N. GT. BKH) GO TO 190 
120 P*.00U. 998«RAND(0) 

IF (BP. NE. 0.0) P* (1.-SQRT (1.-CP*P) )/BP 
X=XLI3 (1) +P* XB 
R=BR*SQRT (RAND (0) ) 

D*PI *RA5D (0) 

PAX (RT,K)=X 

PAT (3T,N)=B*COS(D) 

PAZ(3T,N)*R*SIN (D) 

DO 126 J=2,ND 
IFfX.LE. XCB(J)) GO TO 128 
126 COSTING! 

WRITE (6, 3) J,ND,8T,LL(BI>,K,X,XCB{J) 

IF (DORP) CALL ABEND (1«) 

STOP 

128 TL=TB (J- 1) ♦ (TB (J) -TB (J- 1) ) * (X-XCB (J- 1) ) / (XC3 (J) -XCB (J“ 1) ) 

130 Y=4. *RAND (0) 

YY*Y*V • 

Cl (ST) =C1 (ST) +VY*EXP (1. -YY) 

IF (Cl (BT) .LT. 1.) GO TO 130 
Cl (ST) =C 1 (ST) ” 1. 

A*1.-2.*RAND (0) 

B=SQRT (1.-A*A) 

C=2.*PI*RA5D(0) 

Y= V/3TA (ST) *SQRT (TL) 

PAD (HT,N)*Y*A 

PAV (BT,N)=V*B*COS (C) 

PAY (BT,N)=V«3*SIH (C) 

EI=0. 0 

IF (C8I (RT) .LE.-1.) GOTO 136 

135 EI=9 . * HAND (0) 

IF (EX.EQ.0.0) GO TO 135 
IT=EX**CHI (RT) *EX? (-EX) 

IF (XT.GE.CSG (ST) ) GO TO 136 
CNG (BT)=CBG (BT) + XT 
IF (CBG (BT) .LT. CSG (HT) ) GOTO 135 
CHG(BT)=CHG (ST)-CBG (BT) 

136 EB (BT, H) =EX*TL 

s. TANG=180.* (1.-D/PI) 

IWDGE=TAHG/DELANG* 1 

ZF (IBDGE. GT. NVEDG) IWDGE=NWEDG 

L*X/BW 

IF(L.GE.NV) L=NW-1 
B*R/BB 

w IF(E.GE.NH) S*RH-1 

K-NBEDG* (L*NH+B) +IWDGE 
IF (K. LE. NBX) GO TO 165 

WRITE (6,2) L,B,IWDGE,HW,HH,NWEDG,K,HT,H,X,T,Z,R,TAHG 


GAS 0340 

GAS0370 

GAS0380 

GAS0390 


GAS0400 

GAS0410 

GAS0420 

GAS0430 

GAS04U0 

GAS0450 

GAS0460 

GAS0470 


GAS0510 


GAS0720 


GAS0780 

GAS0790 
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* 


* 


IF(DOHP) CALL ABEND (11) 

STOP 

165 J=NB (KT,K) +1 
LCOL (HT,N)=0 

IP (J.LE. BKB) GO TO 166 
IP (DEBUG 1) WRITE (6,4) HT, K, HNB 

166 HB (KT,K) =J 
LB(N)=K 

167 IF (N.LT.LL (KT) ) GO TO 110 
NH (HT) =N 

NBH (HT, 1) =0 
DO 170 N*1,KBX 
A*HB (HT, H) 

DB (HT, K) =A*DFA (HT) /PNB (N) 
NBR(HT,K+1)*KBH (HT,K) +NB (HT, N) 
RBH (K) =KBH (HT, N) 

170 CONTI NOE 
NG=NH (HT) 

DO 175 N=1,HG 
NQ*LB (N) 

NBN (NQ) *NBN (NQ) *1 
NA*KBN (NQ) 

175 LH (HT, HA) *N 
18 0 CONTIS tJE 
RETORN 
190 LARGE* 1 
RETURN 
END 


GAS0830 

GAS0840 

GAS1190 

GAS1240 

GAS1250 

GAS1270 


GAS1310 

GAS 1330 
GAS1360 
GAS1370 


GAS1380 


GAS1390 

GAS1400 

GAS1410 

GAS1420 

GAS1430 


SUBROUTINE PLOW (RWSDG, HNH, LARGE, BTA, Cl, C7,C8, ENT, REH, LCOL, IP, NH, 
1SN,ST,TBI, PAD, PAY, PAW, PAX, PAY, PA2, ER , CHI, CN3,CHG , I, JY, PCOL , VEL , 
2PFY) 

INTEGER* 2 LCOL 

DIKEKSION ETA (1) ,NH (1) ,SN (1) ,ST(1) 

DIHEKSION Cl (1) ,C7 (1) , C6 (1) ,CKG (1) ,PCOL(1) , YELK (4) 

DIKEKSION PAD (I, 1) ,PAV (1,1) ,PAW(I, 1) , PAI (1,1) , PAT (I, 1) ,PAZ (1,1) 
DIMENSION ENT (3, 1) , REH (3, 1 ) , LCOL (1, 1) , ER (1,1) , CHI (1) ,CNS(1) 
DIKEKSION VEL (JV,4,1) ,P?Y (JV,4,1) 

COMHON /THIRD/PI 
COHHOH /POBTH/NBX, RH, XR 


THE PORPOSE OP THIS SUBROUTINE IS TO ADD A NEW BATCH OP HOLECULES 
TO THE SAMPLE THROUGH THE OPSTREAH BODNDARI. 


DO 370 H T= 1 , IP 


FLOO 100 
FLOO 110 
PL00120 
FLOO 130 
FLOO 140 
PL00150 


XGO=0. 

E=1. 

FRAC=FCOL(HT) 

ARG*SN (HT) 

STT*ST (KT) 

TT-1./BTA (HT) 

TR*1. 

DO 180 NT* 1,2 

VH* (SQRT (ABG**2*2.) +ARG)/2. 
SH=AHAI1 (0.0,YH-4.) 


FLOO 180 
FLOO 190 


PL00200 
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SHH=YR«-4.-SH 

AR=EST (AT, NT) ♦RES (ST r HT) 

H=AR 

BES (RT, NT) = AH-B 
IF(S.EQ.O) GO TO 170 
DO 160 N=1,R 

IF (RR (RT) .GE.RNR) GO TO 380 
NR (RT) =NH (RT) ♦ 1 
NRX=VR (RT) 

B=BS*SQET (RAND (0) ) 

D*PI*BAND(0) 

PAT ( RT, NRX) =H*COS (D) 

PAZ ( RT, NRX) =R*SIN ( D) 

LCOL (RT, H5X) =0 
IF(PEAC.EQ.O.O) GO TO 130 
PF=B AND (0) 

IF(PF.GT.FHAC) GO TO 130 
KHX=3 

YELK (4) =0. 0 

IF (CSX (RT) .GT.-1) KRX-4 
DO 110 R*1,KSX 
P*EAND (0) 

DO 102 J=2,JY 

IF (PFV (J,K, RT) .GT. ?) GO TO 105 
102 CONTINOE 

YELK (K) *VEL (JV , K, RT). 

GO TO 110 

105 YELK (K) = Y2L (J-1,K, RT ) ♦ (P-PFV (J-1, K,RT) ) * (VEL (J,R,HT) -YEL (J-1 ,K, 
1RT) ) / (PFV (J,K,RT) -PFV (J-1,R, RT) ) 

110 CONTIS OE 

PAD (RT , N5X) =YELK (1) 

PAY (RT, NNI) =VELK (2) 

PAW (2T,NHX)=YELK (3) 

EE (RT, BRX) =VELK (4) 

GO TO 160 

130 Y=SR ♦BAND (0) *SRR 

Cl (RT) =C1 (RT) + V*EXP ( YR«*2- V**2 +2 . *AEG* (Y-YR) ) /YR 
IF (Cl (RT) .LT.1.) GO TO 130 
Cl (RT) =C1 (RT) - 1. 

PAD ( RT , NSX) =E*V*TY 
140 V= 8. *B AND { 0) -4. 

C7 (RT) =C7 (RT) + EXP (-Y*V) 

IF (C7 (ST) .LT.1.) GO TO 140 
C7 (RT)*C7(3T)-1. 

PAY (HT,NSI) =STT+Y*TY 
150 V=8. *RAND (0)-4. 

C8(RT)=CB(RT) +EXP(-Y*Y) 

IF (C8 (RT) .LT. 1. ) GO TO 150 
C8 (RT)»C8 (HT)-1. 

PAN (RT, BRX) =Y*TY 

1 * 0.0 

IP (CHI (RT) .LS.-1.) GO TO 156 
155 X®9. *B AND (0) 

IF (X. LE- 0. 0) GO TO 155 
XT*X**CHI(HT) *SXP (-X) 


F100300 

FLO0360 

FLO0370 

FL00390 


FLO0420 
F LOO 430 


FLOO480 

FL00490 

FLO0510 

FL00520 

FL00530 

FL00540 

FL00560 

FL00570 

FL00580 

FL00590 
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IF (XT. GE.CHG(RT) ) GOTO 156 
CRG (KT) =CBG (KT) +IT 
IF (CHG (BT) .LT.CHG (BT) ) GO TO 155 
CRG (HT) =CHG (HT) -CHG (HT) 

156 EB (HT, NHX) =I*TB 
160 FAX (HT,NHX)=XGO 
170 CONTINUE 
ABG=0. 0 
IGO=XB 
E=-1 . 

FBAC=0.0 
STT=0. 0 

TT=SQBT (TBI) /BTA (HT) 

TB=TBI 
180 CORTINDE 
370 CORTINDE 
BETORN 
380 LA BG E= 2 
BETORN 
END 


FL0061 0 
FL00620 

FLO06U0 

FL00650 


FL00660 
FLO1140 
FL01 150 
FLO1160 
FL01 170 
FL01180 


COL0030 


SDBRODTINE COLIDE (CR.CK, NTH, D3, DBA, NB, NCOL, LCOL, PAD, PA V, PAR, EB,T, 
1LR,BT,I2,I3,ETA,PHI,CHI,CN8,HP,NBH) 

INTEGER TIHE 

INTEGEBH2 LH (HP, 1) , LCOL (NP, 1) 

TN^'EGEB*^ KB 

DIMENSION CN (3.3.1) ,CK (3,3.1) , NTH (1) , DB (NP, 1 ) , DB A (NP. 1 ) , NB (HP. 1) 

DIKES SION HBH(NP,1) , NCOL (3,1) ,T(NP,RP, 1) / ETA (3,1) .PHI (3, 1) ,CHI (1) 

DI HE NS ION PAD (NP, 1 ) ,PAV (NP, 1) , PAN (NP, 1) ,ER (NP, 1) ,CK8 (3,1) ,RA (2) 

COKHON /POBTH/SBX 

COHHON./FIFTB/SD.TIH^DTg COL0 

^He"pOF?OSE~Of”tHIS SDBRODTINE IS TO ADVANCE THE ELAPSED TIRES IKCOL0110 
CELLS BT AN AHODNT APPROXIHATELT EQUAL TO THE PRE-SELECTED COLLISCOLO 120 
TIKE. THERE ARE POOR TIKES FOR EACE CELL, SAVED IN AN ARRAY CALLECOL0130 
•T' CORRESPONDING TO THE FOUR TYPES OF HOLECDLAB COLLISIONS VHICCOL0140 
CAN*OCCOF. TO ADVANCE THE VARIOUS TIKES, AN APPROPRIATE NOKSER OFCOL0150 
THE CORRESPONDING HOLECDLAB COLLISIONS IS COHPDTED. THE ACTUAL COL0160 
HOLECOLES TO COLLIDE ABE SELECTED AT RAHD03, AND THEIR VELOCITY VCOL0170 
DIRECTIONS AFTER COLLISION ARE SELECTED AT EANDOK. rnr*n IDO 


COL0060 

COL0090 


AIHE=DTH*TISE 
DO 240 HTA= 1 , KT 
DO 230 HTB*1,HTA 
D = RTH(HTA) ♦ NTH (HTB) 

VA (HTA ) *RTH (STAJ/D 
NA (RTB)*NTH(HTB)/D 
BS*NTH (HTA) *RTH (HTB) /D 
CHT»CHI (HTA) ♦CHI (HTB) *2. 0 
PHT*PHI (HTA, HTB) 

ETT*ETA (HTA, HTB) 

DO 220 N* 1 , NBX 

IF (T (HTA ,HTB, K) • LT. AIHE) GO TO .100 
IF (T (HTB, HTA, N) .GE.AIHE) GO TO 220 
100 NA=SB(HTA,N)*NB(HTB,N) 
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A 


IP (HTA. EQ. HTB) RA= (HA-HB (HTA, N) ) /2. 

IP (HA.LT. 1) GO TO 220 
KS=0 
'120 KC=0 

CPUT=£LTIEE (0) 

KS*KS* 1 

IP(KS.GT.HA) GO TO 220 
130 KC=KC+1 

IP(KC. GT.SA) GO TO 220 
13 5 1= KB (HTA.K) *RAND (0) ♦UNBH (HTA, H) 

IP (I.GT. KBS (HTA, H+ 1) ) I«NB3 (ETA, B*1) 

J=LS (HTA ,1) 

140 K=RB (HTB,K) *PA5D (0) ♦ 1 ♦ HBH (HTB.S) 

IP (K.GT. NBS (HTB, 8+ 1) ) K* RBfl ( HTB, H+ 1) 

IP(STA.EQ.STB.ASD.I.EQ.K) GO TO 140 
L=LH (HTB , K) 

GH1=WA (HTA) *P AO (HTA, J) ♦ » A (HTB) *PAO (HTB, I) 

GH2=tf A (HTA) *PAV (HTA, J) ♦«A (STB) «PAV (HTB ,L) 

GB3=VA (HTA) *PAW (HTA, J) + 5A (HTB) *PAB (HTB,L) 

G1=PAU (HTA, J) -PA3 (HTB, I) 

G2=PAY (HTA,J)-PAV (2TB. L) 

G3=PA» (HTA, J) -PAS (HTB,I) 

GS»G1**2*G2**2*-G3**2 

IP (GS.IT. 1.0E-S) GO TO 130 

ET=EH*GS 

EI*ES (ETA, J) *28 (HTB, L) 

VB=GS** (. 5-2TT/2. ) • 

I? (TR.GE.CH (HTA, HTB, 1) ) GO TO 160 
CK (ETA, HTB, 1) = CN (HTA , HTB, 1) + VB 
IP (CK (HTA, HTB, 1) . LT. CH (HTA, HTB, 1) ) GO TO 130 
• CK (STA,HTE, 1)=CN (HTA.ET3, 1 ) -CE ( ETA , STB , 1 > 

160 COKTIKOE 

CPUT= 2LTIHE (0) 

CALL IHPACT (RH , G 1 , G2 , G 3 , ET , El , PHT, CRT , ETT, CH (ETA, HTB, 2) , CN (HTA, HTB 

1.2 j) 

165 CONTIXGE 

CPDT=BLTISE (0) 

IP (PHT, EQ.O.) GO TO 175 
X1=0. 0 

IF (CHI (ETA) .EQ.-1.) GO TO 175 
X1=1.0 

IP (CHI (HTB) . EQ- - 1 - ) GO TO 175 
170 X1=RAND (0) 

IP ( (CHI (HTA) .EQ.O.) . AKD. (CHI (HTB) .EQ.O. ) ) GOTO 175 
XT=X1**CHI (HTA) * (1.-X1) «*CHI (HTB) 

IP (XT. GT.CH(ETA,ETB,3) ) GOTO 175 
CH(HTA,HTS,3)=CN (HTA ,HT3, 3) *XT 
IP (CH (HTA, HTB, 3) . LT.CH (ETA, HTB, 3) ) GOTO 170 
CS (HTA, HTB, 3) =CN (HTA , HTB , 3) -CH (HTA, STB, 3) 

175 COKTINUE 

C*DB A (HTA,N) 

0*DBA (HTB,H) 

IP(C.EQ. 0.0) C*DB'( HTA, H) 

IP (D.EQ. 0. 0) D*DB(HTB,H) 

IP (T (HTA.ETB, H) . GE. AIHE) GO TO 180 
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PAD (HTA, J) =GHH-VA (BTS) *G1 
PAT (HTA, J) =GH2+VA (HTB) *G2 
PAR(HTA,J)=GH3+tfA (HTB) *G3 
IF (PHT.GT. 0. ) ER (BTA,J)=X1*EI 
LCOL (BTA,J) = ULCOL (HTA , J) 

RCOL (HTA,HTB) =HCOL (HTA, HTB) ♦ 1 COL0810 

T (HTA, HTB, K) =T (HTA, BTB, R) ♦CRB ( BTA, STB) /RB (BTA, R) /D/TB 
IP (BTA. EQ. 3TB) GO TO 190 
180 IP (T (HTB , BTA, R) . GE. AISE) GO TO 210 
190 PAU(HTB,L) =GS1-SA (BTA) *G1 
PAV (BTB, L) =GH2-RA (BTA) *G2 
PAR (BTB,L) =GH3-IA (BTA) *G3 
IP (PHT.GT. 0. ) EE (BTB ,L) = ( 1.-X1) *EI 
LCOL (HTB,L) = ULCOL (ETB.L) 

RCOL (BTB , HTA) =NCOL (HTB, BTA) +1 COL0920 

T (BTB, HTA, H) *T (BTB, HTA, H) *CN8 (BTB, BTA) /RB (BTB, R) /C/VB 
210 CONTINUE 

IP(T(BTA,BTB,R) . LT. AIBE. OB. T (BTB,BTA, R) . LT. AIHE) GOTO 120 
220 CONTINUE 
230 CORTIKOE 
24 0 COKTIHUE 
RETURN 
END 


SUBROUTINE BOVE (KSNCH, AKN, RB EDG, ISTART, 12,13,14, 15, DELAKG, 
1BTA,C2,C3,DPA,PL,HTI,HTE,JKT,KHB,NS, ICB, XLIS,CTI,CTR,CHI, 

2CNB, ALPHA, SIGH A, COE??, BTS, HTSI, NTS, OTL , OTT, YTS, PAU, PAV, PAS, PAX, 
3PAT,PAZ, LCOL, TB , IP,£R,CHI,CHG,CBG,I, UTLI,OTTI, VTSI,IPLUX) 
INTEGEB*2 LCOL (1,1) 

IKTEGEB TST,TIBE 
LOGICAL DO HP 
REAL LAB , E 0, RO 

DIEENSIOR BTA (1) ,C2 (1) ,C3 (1) ,PL(1) , HTI (1) 

DIBEKSION HTR (1) ,TB (1) , XCB (1) , ALPHA (3, 1) , SIGBA (3,1) ,COEPF(4) 
DIHEKSION PAD (I, 1) , PAT (I, 1) , PAS (I, 1) , CTI (3, 1),CTP. (3, 1) 

DIHENSIOH CNI (3,1) ,CNR (3,1) , DP A ( 1) , JRT (1 ) , XLIH (1) , KHB ( 1) ,KS(1) 
DIHEKSION BTS (3,12,13) ,HTSI (3, 12,13) , NTS (3,12, 13) 

DIBEKSION OTLI (3,12,13) ,0TTI (3,12,13) ,VTSI (3,12,13) 

DIBEKSION DTL (3, 12,13) , OTT (3,12,13) , VTS (3, 12,13) 

DIHENSION PAX (I, 1) ,PAT (I, 1) , PAZ (I, 1) 

DIHENSIOH ER (I, 1) , CRG ( 1) ,CHG (1) ,CHI (1) ,IFLUI (3,2) 

COBBOR /THIBD/PI , HREG 

COBKOR /TO BTH/KBX, BB,XB,DOBP 

COHHOH /PI PTH/RD, TI BE, DTH, TI , ITS,ITP,TST 

COBBOR /SVNTH/LAM, HO, NO , BT,N,J,XI,YI,ZI,TOSE 

R1HELI ST/C HECK/TIB E, X, T,Z,DX,DT, DZ, TLEPT, RADS, RSS, XR 


MOV0070 
ROTO 080 


HOV0170 

BOV0160 

HOV0200 


TBE PURPOSE OP THIS S03R00TINE IS TO ADVANCE THE SPATIAL POSITIOH 220 

OP ALL THE BOLECOLES BT AN ABOOKT APPROPRIATE TO THEIR CURRENT VE 230 

LOCITIES AND THE PRE-SELECTED COLLISION TIHE. 240 

RAREA S HREG + 1 HOT0270 

BHS»RH**2 
DO 150 HT=1,IP 
H=KRH (HT) 


HOV0290 



PILE: GKBIHT A0G82 


1 


PBIHCETOB OHITBRSITI TIHE- SHARING STS? SR 


10 B=N+ 1 

TLEFT=D?3 

IP (KSWCB.EQ. 1) ?LEPT=TLEFT*BAND(0) 

IP (K.GT. HB (RT) ) GO TO 150 
15 LA3=PA0(ST,H) 

H0=PA7 (HT, H) 

NU=P AW (ET, 5) 

XI=PAI (HT,N) 

TI=PAT (HT,N) 

ZI=PAZ (HT, K) 

DX=TLEFT*LAH 

DT=TLEFT»BO 

DZ=TLEPT*NO 

X=XI + DX 

T=TI+DT 

Z=ZI+DZ 

RADS=T**2+Z**2 

TOSE=TLE?T 

KS=0 

IP (RADS.GT. RES) CALI INTERS (X , Y, Z , ESS, KS) 

I? (X. GT. XLIB (1 ) ) GO TO ie 
IPLOX (HT,1)=I?LOI (RT, 1) +1 
GO TO 100 

18 I? (X.LT.XLIR (NAEEA) ) GO TO 19 
IFLUX (RT,2)=IFLUX (3T,2) +1 

GO TO 100 • 

19 CONTINUE 

IP (KS. GT. 0) CALL DEAG ( AKK , HW EDG , XSTABT , 1 2, 1 3 , 1 4, 15, DELANG, JNT, BTA, 
1C2,C3, DFA, ?L,HTI,HTB,TB,XCB, CTI, CTE, CNI, CHR, ALPHA, SIG2A, EH, HTS , 
2HTSI ,HTS,CTt,DTT, YTS , LCOL, I? , EE , CHI, CNG, CSG, I, 0TLI,UTTI, VTSI) 
IF(Z.GT.O.O) GO TO 20 
Z=-Z 
ND=-5U 

20 COSTIRUE 

PA X (ST , S) = X 
PAT (3T,N) =T 
PAZ(H?,H)=Z 
PAO ( ST ,N) - LAB 
PAY (BT,N) = 30 
PAW (3T , N) = NU 

IF( (X.GT.0.0) . AHD. (X.LT.XR) . AHD. ( (I**2*Z**2) .LT.BSS) ) GO TO 25 
WRITE (6, CHECK) 

GO TO 100 
25 COKTISOE 

TLEFT=TLE FT- TU SE 
IP (TLEPT.GT.0.0) GO TO 15 
GO TO 10 
100 NZ»HH(BT) 

PAX (ST,R)«PAX (HT,HZ) 

PAT (HT,H) *PAT (HT, NZ) 

PAZ (HT,H)*PAZ (HT, HZ) 

PAO (H?,W) *PA0 (ST, NZ) 

PAV(HT,B)*PAY (HT, HZ) 

PAW (ST,S)*PAW (ST, HZ) 

EE (ST, W) =EE (RT, HZ) 


8070300 

S070310 

HOV0320 

8070330 

HOV0340 

SOY0360 

HOV0370 

SOY0380 

H070390 

S070400 

H070410 

H070420 

H070430 

HOY0440 

HOY0450 

B070460 


3070820 

H070830 

B070840 

HOY0850 

8070860 

8070870 

8070880 


> 

t 
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A 


PBINCETOH UKIVEBSITI TIHE-SH ASIHG ST STEM 


ILE: 


T 


{. 


LCOL (BT, N) =LCOL (BT, RZ)- 
N=N-1 

NB (BT) «HB (ST) - 1 
60 TO 10 
150 CONTINUE 
RETURN 
END 


BOV0900 

HOV0910 

BOY0920 

HOY0930 

BOY0940 

BOY0950 

HOY0960 


SUBROUTINE ACCUB (12, 13, FNB,RB, PAU, PAY, PAN,ER,THP,TRP,XV, IY,ZY, LB, 
1IP,I,NBS) 

LB (1,1) ,NBB(I,1) 

RB 


INTEGER*2 
INTEGER*2 
DIBE NS ION 
DIBENSION 
COHBON /PORTH/NBX 


FNB (1) , NB (1,1) , PAU (1,1) , PAY (1,1) ,PAV (1,1) ,TBP(I, 1) 
XY (I, 1 ) , IV (I, 1 ) , ZY (1 , 1 ) , ER (I, 1 ) ,TRP (I, 1 ) 


ACUS050 

THE PURPOSE OF THIS SUBROUTINE IS TO ACCUBULATE TEBPERATURES, ACUS070 
VELOCITIES, AND DENSITIES IS VARIOUS ARP. ATS FOR DETER BINING THE ACUB080 
AVERAGE FLOW FIELD PROPERTIES AFTER STEADI-STATE HAS BEEN REACHEDACUM090 

ACUH100 


DO 180 N*1,HBX 
DO 110 RT= 1 , IP 
IV (BT, N) =0.0 
TV (BT, N) =0 . 0 
ZV (BT, N) =0.0 
TMP (BT,N) = 0. 
TRP(BT,N) =0. 0 


ACUR120 

ACUB160 

ACUS170 

ACU3180 

ACUB190 


TTX=0. 
TTY=0. 
TTZ=0. 
TTR=0. 0 


ACUB200 

ACUB210 

ACUB220 


H=NB (BT, N) 

IF (B.LT. 1) GO TO 1 10 

0 = 0 . 

V=0. 

S=0. 

DO 100 L=1 , B 
KA=KBB (BT, N) +L 
J=LB (BT, NA) 
PO=PAU(RT,J) 

PY=PAV (BT, J) 

PR=PAW (BT, J) 

U=U+PU 


ACUB230 

ACUS240 

ACUB250 

ACUS260 

ACUS270 

ACUE280 


ACUB300 

ACUB310 

ACUB320 


Y=Y*PV 


W=H+PN 

TTR=TTR*ER (BT, J) 
TTX=TTI*PU*PU 
TTI=TTT+PY*PV 
100 TTZ=TTZ*PV»PW 
H=RB (BT,N) 

IY(BT,N)«U/B 
TV (BT, N) *Y/R 
ZV (RT,H) *N/H 

T8P (MT,N) = (TTX+TTY+TTZ) /B 
TRP (BT,N)=TTR/B 


ACUB390 

ACUB400 

ACUB410 

ACUB420 
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PBIHCETON UNIVERSITY TIB E-SHARING SYSTEM 


110 CONTINUE 
180 CONTINUE 
RETURN 
END 


ACUS 430 
ACUS440 
ACOS450 
ACUH460 


SUBROUTINE AVRGE (FSB, DB , DBA, KB ,NET, XV, TV, ZV,IVA , TVA, ZV A , TSP, TSPA, 


1 1BP, TBPA , IP , I) 

INTEGER*2 NB,NBT 

DIMENSION FN 3 ( 1 ) ,D3(I,1) ,DBA (1,1) , SB (1,1) ,N3T(I,1) ,THP(I,1) 

DIHENSION THPA (I, 1 ) , XV (I, 1) , XY A (I, 1) , IT (I, 1) ,TVA (I, 1 ) , ZV (I, 1 ) 

DIHENSION ZYA (I, 1) ,TB? (1,1) ,TRPA (1,1) 

COHHON /F0HTH/N3X AYG0050 

AVG0060 

TEE PURPOSE OP THIS SUBROUTINE IS TO CONFUTE THE AVERAGE PLOW AYG0070 
FIELD PROPERTIES. . AYG0080 

AVG0090 

DO 110 N=1 , HBI AYG0110 

DO 100 H T= 1 , 1 P 

A=53T (ST, 5) AVG0150 

B*NB (ST, N) 

C=A*B AVG0170 

HBT (ST, K) ®C AVG0180 

IF (C.LT. 1. ) GO TO 100 • AYG0190 

DBA (ST, N) « (DBA (ST, 5) *A + D5 (ST, S) *B)/C AVG0 200 

IYA (HT,H)*(XYA (ST, R) *A + X7 (ST.H) *3) /C AVG0210 

IV A (ST, S) * (YY A (ST, N)'* A ♦ YV (ST,N) *B) /C AYG0 220 

ZVA (ST , K) = (ZVA (ST, H) *A + Z V (ST, N) *3) /C A7G0230 

THPA (ST, N) * (TSPA (KT,K) *A+TSP {KT,N) *S)/C AYG0240 

TRPA (ST, N) = (TRPA (ST, S) *A*TRP (ST, S) *B) /C 
100 CONTINUE AYG0250 

110 CONTINUE AVG0260 

RETUES AVG0270 

END AVG0280 


SUBROUTINE DRAG (ANN , 5 SSDG , 1ST AET , 12 , 13 , 14 , 15 , DZLA NG, JST, BT A, 
1C2,C3,DFA,FL,ETI,3TE,T3,XC3,CTT,CTB,CKI,CKR, ALPHA, SI GS A, BS , HTS, 
2HTSI , HTS ,UTL, UTT, YTS,LCOL,IP , EB,CHI, CNG,CSG,I,UTLI,UTTI, YTSI) 
INTEGER* 2 ' LCOL 

INTEGER TISE.TST 
BEAL LAH,SU, HU, JAY, RAT 

DIMENSION BTA (1) ,C2(1) ,C3 (1) , FL(1) ,HTI (1) ,CTI(3, 1) , CTR (3,1) 
DIHEN5I0S HTR (1) ,TB (1) , YCB (1) , ALPHA (3,1) ,SIGSA (3,1) 

DIBEHSION HTS (3,12,13) ,HTSI (3,12,13) , STS (3,12,13) 

DISEHSION UTL (3,12,13) ,UTT (3,12,13) ,VTS (3,12,13) ,LCOL(I,1) 
DIHENS ION UTLI (3,12,13) ,UTTI (3,12,13) , YTSI (3,12,13) 

DISEHSION CNI (3,1) ,CNR (3,1) ,DFA (1) ,JST (1) 

DIHEN5I0S ER (1,1) ,CKG (1) ,C3G (1) ,CEI (1) 

COHSOH /THIRD/PI 

COaSOR /PIFTH/HD, TIME, DTH , TI , ITS , ITP, TST 


COBHON /SYNTH/LAS , SU, NU, ST, N, 3, ICL,ICL,2CL 


DRG0040 

DRG0050 

DHG0060 


DBG0140 

DBG0150 

DSG0160 

170 

HEAT 180 
WHICH 190 


THE PURPOSE OF THIS SUBROUTINE IS TO ACCDHULATE THE DRAG AND 
TRANSFER INCREMENTS ON THE BODY CONTRIBUTED HI EACH SOLECULE 
COLLIDES RITE THE BODY. IN ADDITION, EACH BOLSCULE 3BICH COLLIDES 200 
WITH THE BODY IS ASSIGNED AN APPROPRIATE HEW VELOCITY (OF REFLECTION) 210 
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1 
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f 


t 


WHICH IS USED TO 


CONTINUE ITS SPATIAL TRANSLATION (IN SUBROUTINE DRAG) 
230 


CALL NORHAL(JAT,KAT,RH) 

JNT (KT) =JNT (HT) +1 

TANG=1 80. * ATAK2 (ZCL,-TCL) /PI 


IWDG=TAHG/DELA NG + 1 
IP (IWDG.GT.NWEDG) IBDG=NWEDG 
D= (L AH*LAH*-HU*HU+NU*NU ) 

G=ER (BT,N) 

H=G 

DO 100 B=2,ND 

IP (XCL.LT. ZCB (H) ) GO TO 110 
100 CONTINUE 

110 TBX=TB (H- 1 } ♦ (TB (M) -TB (H- 1 ) ) * (XCL-XCB (fl-1 ) ) / (XCB (H) -XCB (H-1)) 
WI=(NU*JAY-HU*KAT) 

VID=HU»JAT«-NU*KAI 

0ID=LAH 

E=RAND(0) 

IP(E.LT. SIGMA (HT, M) ) GO TO 115 
VRD=-VID 
ORD=0ID 
SR=W I 
GO TO 125 
115 V=4. *B AND (0) 

C2 (KT) =C2 (HT) ♦ . 544 33 1*7* V* V* EIP ( 1. 5- V* V) 

IP (C2 (HT) .LT. 1. ) GO TO 115 
C2 (MT)=C2(KT)-1. 

IP( NTS (HT,M,IKDG) . KB. 0) GO TO 117 
AT R= ALPHA (HT,M) *T3I /SIGMA (HT,H) 

GO TO 118 

117 AT R= ALPHA (HT, H) *TB I /SIGMA ( BT,H) + (1 .-ALPHA (HT,S) /SIGMA (HT,E) 
II (KT,H,I«DG) / NTS (KT , K , IWDG) / (3. + CHI (MT) ) 

118 ABR=SQET (ATR) 

7= V* ABB/BT A (MT) 

AA=R AND (0) 

A=SQRT (AA) 

B=SQET (1.-AA) 

C=2.*PI*EAND (0) 

7BD=V*A 
UBD=V*B*COS (C) 

SR=7*3*SIN (C) 

IP (CHI (BT) . EQ. - 1. ) GOTO 125 
122 1=9. *RAND (0) 

IP (X. EQ. 0. 0) GO TO 122 
ITEM P= 1.0 

IP (CHI (HT) .HE. 0.0) XTEHP=X**CHI(ST) 

CNG (5T) =CHG (BT) + XTSHP*EXP (-X) 

IP (CNG (BT) .LT. CBG (ET) ) GOTO 122 

124 CONTINUE 

CNG (BT) =CNG (HT) -CBG (HT) 

IP (CNG (HT) .GE.CMG (MT) ) GOTO 124 

ER (BT,N)=X*ATR 

H=ER(HT,N) 

125 UR=UBD 
LAH*UR 


DBG0310 

DBG0320 


DRG0330 

DRG03U0 

DBG0350 

DRG0370 


DBG0400 
DBG0410 
DRG0420 
DRG0430 
DRG0440 
DBG0450 
DRG0460 
DRG0470 
DRG0480 
DRG0490 
DBG0500 
DRG0510 
DBG0520 
) *HTS DRGO 530 ' 

DBG0550 

DRG0560 

DRG0570 

DRG0610 

DRG0620 

DRG0630 

DRG0640 

DRG0650 
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H0=JAY*7BD-KAT*WR 
RU=KAY*VRD+JAT*KB 
IF (TISE. LE.TST) RETORH 
XSZ= (XCL-XSTAET) *AKH 
IHZ« RB* AKH 

B= (BRD*ORD*TRD*VRD + WR*WR) 
OTI=0ID*OID«-WI*WI 

oyi*-wi*kay 

0TB=-WB*KAI 

FL (3T) =FL ( MT) + DFA (ST) 

HTI (HT) =HTI (RT) +D+G 

HTR (ST) = HTR (ST)-B-H 

CTI (ST , 1 ) =CTI (ST, 1) + 0ID 

CTI (ST, 2) =CTI (ST, 2) +OTI 

CTI (ST, 3) =CTI (ST, 3) ♦ (X 3Z*0YI-YSZ*0ID) 

CHI (ST, 2) =CHI (ST, 2) «-VID*JAT 

CHI (ST,3)=CHI ( ST, 3) ♦XSZ*JAY*?ID 

CTB (ST, 1) =CTE (ST , 1 ) -UR D 

CTE (ST, 2) =CTR (ST, 2)-UTE 

CTR (ST, 3) =CTR (HT, 3 ) - (XSZ*DYR-TSZ*ORD) 

CHE (ST,2)*CNR (ST, 2) - VRD*JA Y 

CHE (ST, 3) =CNB (ST, 3) -XSZ*JAT*VRD 

RTS (ST,S,IWt)G) *HTS (ST, S, IWDG) + 1 

0TLI (ST,S,IWDG)*OTLI (ST, S , IVDG) + DID 

BTL (ST, E , HDG) = r JTL (KT,S, IVDG) ♦ (UID-URD) 

DTTI (ST, a, IVDG) =UTTI (ST, S,IWDG) ♦ SI 

(JTT (ST,B,ISDG) ='JTT (ST, S, IVDG) ♦ (WI-WB) 

XT SI (ST, 3, IVDG) = VTSI (ST, H,IWDG)-TID 
VTS (ST, R,IWDG) =7TS (ST, H, ISDG) + (VED-VID) 
HTSI (ST, S,I5DG)=HTSI (ST, S, ISDG) + D + G 
HTS(ST,S,ISDG)=HTS (ST, S, ISDG) *D-B*G-H 
RETOEN 
END 


DBG0730 

DBG0740 

DRG0750 

DRG0760 


DRG0790 


DBG0820 

DBG0630 

DRGO04O 

DBG0860 

DRG0880 

DRG0890 

DBG0900 

DBG0920 

DBG0940 

DBG0960 

DBG0970 

DRG0980 


DBG1 170 
DBG 1180 


SUBROOTIXE INTERS (X, T, 2, RSS, KS) 

BEAL LAS, SO, NO 

COSSOS /SV NTS/LA 3, SO, HO, ST, S, J,XI, TI,ZI,TUSE 

1 FORSAT (//• SDSETHING IS SBONG IN INTERS */6E IS. 6/42 15. 6) 

2 FORSAT (//• TB003LE IN INTERS - TTSE = ' , E 1 5. 6/6 El 5. 6/4E15 .6) 
A=HO**2+RC**2 

B= (YI*H0+ZI*N0)/A 
C= (RSS-ri**2-ZI**2) /A 
IF(C.LT. 0.0) C=0.0 
DISCR=B**2+C 

IF (DISCS. GE. 0.0) GO TO 10 

WRITE (6,1) XI,II,ZI,SO,NO,ESS,A,B,C, DISCR 
STOP 

10 TTSE=SQBT (DISCS) -B 

IF (C. EQ. 0. 0) TYSE-=0.0 

IF.( (TYSE.LE.TUSE) .AND. (TTSE. GE.0.0)) GOTO 11 
WRITE (6,2) TYSE,XI,YI,ZI,BU,NO,RSS,A,B, C, DISCS 
IT(TYSE.GT.TOSE) TTSE=TUSE 
IF (TTSE. LT. 0.0) TXBE*0.0 

11 KS=1 
TBSE*TISE 
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XI— XI+LAH^TTHE 
TI=YI+HO*TTH£ 
ZI=ZH-NO*TYHE 
IF(ZI.GT.O.O) GO TO 20 
ZI=-ZI 
HD=-NO 
20 CONTINUE 
TI=.9999*YI 
ZI=. 9999*ZI 
I=II 
T=TI 
Z=ZI 
RETURN 
END 


SUBROUTINE NORHAL ( JAY, KAY, RH) 

BEAL LAH,HU,NU, JAY, FAT 

COBHOH /SVNTH/LA3 , HO , NU , HT, N, J , XCL, YCL, ZC1 

JAT=-TCL/RH 

KAI=-ZC1/R3 

RETURN 

EKD 


NOR3020 

NORH040 


KOBE 130 
NORB140 


i 


SUBROUTINE PRINT 1 (DT, COSANG, SINANG, RHA, RKU, DRF,FCF,HTF,FL, HTI, HTR, 
1CTI,CTB,CNI,CNR) 

DIHENSIOK DD (3) , VD (2,5) ,PP (4,4.) ,QQ (4,4) ,RE*(4,4) ,SS (4,4),TT (4,4) 

DIHENSION 00(4,4) , PI (4,4) ,Q1 (4, 4), PI (4 , 4) , ?A (4 ) , PB (4) , PC (4) 

DIHEKSION EL (1), HTI (1) , HTH (1) ,CTI (3, 1) ,CTB (3,1) ,CNI (3, 1) ,CSR (3,1) 
DIHENSION RHA (1) ,F.NO (1) 

DATA HD/' X-FO ' , ' BCE • , ' T-FO* , ' BCE • , * Z-HO* , • BENT' , 'DBAG' , * ','LPT10070 

1 IFT* , * •/ PT10060 


THE POEPOSE OF THIS SUBROOTINE IS TO PRINT OOT THE GROSS SORPACE 
COEFPICIEKTS OF THE BODY. 


FOPHATS 


1 FOR3AT (//I X, 50 ('*'), • GROSS SURFACE COEFFICIESTS ',50(**')/« HOLEC 
1 OLAR HEIGHT', 12T,F8. 3, 3(191, F8.3J/25X, 

2 'INC. REF. TOT. INC. BEF. TOT. INC. 

3REF. TOT. INC. REF. TOT.') 

10 FOHHAT ( • NUHBER FLUI 
12 FORHAT (IX, 2A4,2X, 'SHEAR 
14 FORKAT(11X, 'PRESSURE • 

16 FCR3AT(1 IX, 'TOTAL • , 4 (3F8. 3, 3X) /) 

18 FORHAT (• HEAT TRANSFER', 7X, 4 (3F8.3,3X)/) 


PT 10 1 00 
PT 10 1 10 
PT10 120 
PT10130 
PT10140 
PT10150 
PT10160 
PT10170 
PT10180 


', 4 (F9. 3, 18X) ) 
' , 4 ( 3F8. 3, 31) ) 
,4 (3F8 . 3, 3 X) ) 


************************************************************** 


RHR=0. 0 


PT10280 
******** PT10290 
PT10300 
PT10310 
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DO 50 KT=1,3 

DD (RT) = P.HA (RT) *EN0 (RT) *DRF/DT 
50 BRR=B3B*BRA (RT) *RNO (RT) 

BRITE (6, 1) (RMA (RT) ,HT=1,3) ,RHR 
PF=FL ( 1) *FCF/DT 
QF=PL(2) *FCF/DT 
RF=FI. ( 3) *FC?/DT 


SF=PF* QF*RF 

WRIT2 (6, 10) PF, QF, BF, S? 
DO 200 1=1,3 


PP (4,I)=0.0 
QQ (4,I)=0.0 
BR (4,I)=0. 0 
SS (4,I)=0. 0 
TT (4 , 1) =0. 0 
00 (4 , I) =0. 0 
PI (4,1) =0. 0 
Q1 (4,1) =0.0 
B 1 (4 ,I)=0. 0 
DO 150 RT*1,3 

PP (RT, I) =CTX (RT , I) *DD(RT)/R3R 
QQ (RT , I) =CTR (RT, X) «DD (RT) /P.RB 
SS (RT, I) =CKI (RT ,1) *DD (RT) /RRR 
TT (RT, I)=CNr. (RT,I) *DD (RT) /ERR 
PI (RT, I) =PP (RT, I) * SS (RT, I) 

Q1 (RT, I) =QQ (RT, I) + TT ( RT, I) 

HP. (RT, 1)=?? (ET,I) + CQ (RT, I) 

00 (RT , I) =SS (RT , I ) ♦ TT (RT,I) 

R1 (RT, X) =P1 (RT, I) +Q1 (HT,I) 

PP (4,I)=P? (4,1) + PP (RT , I ) 

QQ (4,1) =QQ (4,1) *QQ (BT.I) 

BR (4,r)=BH (4,1) +BP. (RT,I) 

SS (4,1) =SS (4,1) *SS (HT , I) 

TT ( 4 , I ) = TT (4,1) +TT (RT,I) 

00 (4,1) *00 (4,1) *03 (RT, I) 

PI (4, I) =P1 (4,1) *?1 (RT , I) 

Q1 (4 , 1) =Q1 (4,1) ♦ Q 1 (RT,I) 

B1 (4,I)=B1 (4,1) +E1 (RT, I) 


REITE (6, 12) (RD (J,I) , J=1,2) , (PP (K,I) ,QQ (K,I) ,RH (K,I) , K=1,4) 

BRITE (6,14) (SS (K,I) ,TT (K,I) ,00 (K,I) ,K=1,4) 

BR ITE (6,16) (PI (K,I) ,Q1 (K,I),R1 (K,I),K=1,4) 

200 C0HTIN02 
AA=COSANG 
BB=SIHAHG 
DO 300 1=4,5 
DO 250 K=1 , 4 

PP (K,4)=AA*PP (K, 1) *BB*PP (K , 2) 

QQ (K.*») a ^A*QQ (K, 1) ♦BB*QQ(K,2) 

BB (K, 4) * AA*BR (K, 1) ♦BB*BR (K,2) 

SS (K,4)*AA*SS (K, 1) ♦BB*SS (K,2) 

’TT (K,4)=AA*TT (K, 1) *BB*TT (K,2) 

00 (K,4)=AA*00 (K, 1) ♦BB*00 (K,2) . 

PI (K, 4) = AA*P1 (K , 1 ) +BB*P1 (K,2) 

Q1 (K,4)=AA*Q1 (K, 1) *63*01 (K,2) 


PT10400 


PT10460 

PT10470 

PT10480 

PT10430 


PT10630 

PT10640 

PT10650 

PT10660 

PT10680 
PT10690 
PT10700 
PT10710 
PT10720 
PT10730 
PT10740 
PT 10750 
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V 


250 HI (K,4)=AA*R1 (K, 1) +BB*R1 (K,2) M10760 

WRITE(6, 12) (SD(J,I) , J= 1 , 2 ) , (PP(K,4) ,CQ(K,4),ER(K,4) ,K«1,4) 

WRITE (6, 1ft) (SS (K,4) ,TT (K,4) ,00 (K,4) ,K=1,4) 

WRITE (6, 16) (PI (K,4),Q1 (K,4),R1 (K,4),K*1,4) 

AA*-SINANG PT10800 

BB=COSANG PT10810 

300 CONTINUE PT10820 

HD*HTF/DT PT10830 


PA (4)=0.0 
PB(4) = 0.0 
PC(4)=0.0 
DO 400 HT=1,3 

PA (KT) = HTI (1ST) *RH A (HT) *RND (HT) *HD/RHR 
PB (HT) =HTR (HT) *RHA (HT) *RR0 (HT) *HD/BHR 
PC (KT) *PA (HT) *PB (HT) 

PA (4 ) =PA (4) +PA (HT) 

PB (4)=PB (4) *PB (HT) 

PC (4 ) = PC (4) 4-PC (HT) 

400 CONTINUE 

BRITE (6, 18) (PA (I) ,PB(I) ,PC(I) ,1=1,4) 

RETURN PT 10950 

END * PT10960 


SUBROUTINE PRINT2 ( AKN, ISTAP.T , DT, RNU, RH A, DBF, FCF, HTF,UTII,UTTI, YTSI 
1,HTSI,DELANG,NNEDG,XS,XCB,ICB,'HTS,KTS,UTL,UTT, VTS, 12,13, IP) 

DIHENSION ERA (1) , RNU ( 1 ) , IS { 1) , XCB ( 1) , TCB ( 1) 

DIHENSION- HTS (3,12,13) , NTS (3,12,13) , UTL (3, 12,1 3) 

DIHENSION OTT (3,12,13) ,YTS (3, 1 2, 13) , UTL I (3,12,13) ,DTTI (3,12,13) 

DIHENSION YTSI (3,12,13) ,HTSI (3,12,13) 

COHHON /FIFTH/ND PT20060 

THE POBPOSE OF THIS SUBROUTINE IS TO PRINT OUT THE DISTRIBUTION PT20080 
ON SURFACE OF THE SURFACE COEFFICIENTS PT20090 

PT20100 
PT201 10 
PT20120 
PT20130 

FORHATS PT20140 

PT20150 

PT20160 

8 FORHAT (//II, 45 {**•), • DISTRIBUTION ON SURFACE » , 45 (• • • ) /71 X, 'INC. 

1 TOT. INC. TOT. INC. TOT. «/1 IX, * SEGHENT GEOHETET', 

2 14X, • HOL. ROLE SAHP NOB. SKIN SKIN PRES- PRES- 

3 HEAT BEAT'/' NO. CENTER DELI CENTER DELANG', 41, • BGET. F 
4RACT. ' , 1 OX, 

5 'FLUX FRCTN FRCTN SORE SURE TRNSF TRNSF* ) 

10 FCRHAT (1X,I3,F8.3,F7.3,F9. 3, F8. 3 , 1 X, 2F8. 4,I6.7F8. 4) 

11 FORHAT (37X,F8. 4,* 1. 0000 » , I 6, 7F8. 4) 


****************************************************** 


BHR*0.0 


PT20230 

•*■**•*** *******»PT2 0240 
PT20250 
PT20260 


DO 50 HT* 1 , IP 
50 RSRsRKR+RHA (HT) *BN0 (HT) 
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NRITE (6, 8) 

1=0 

DO 110 N=2,ND 
DTT=DT*YC3 (H) /I 80. 

P*XS (N) 

Q*2. * ( (XCB (N) -XSTABT) *AKH-XS (H) ) 

J =0 

R»-.5*D£UNG 

PHLT=rC?/(DTT*DELANG) 

QNLT=DKF/ (DTT*DEI.ANG) 

SHLT=HT?/{ ETT*DELANG) 

DO 100 K=1 , NSEDG 
R*E+DELANG 
1 = 1+1 
J=J + 1 
(13=0 
P3=0 . 0 
03=0.0 
Q4=0.0 
E3 =0 . 0 
R4=0.0 
S3=0 . 0 
S«=0.0 

DO 90 KT= 1 , IP 
H 1= NTS (NT, N , J) 

H3=S3+N1 . • 

P1 = KTS (3T, N , J) *P NLT*E NO (NT) 

?3=?3 + PI 

Q1 = SQRT (UTLI (NT, N, J) **2+UTTI (NT, N,J) ** 2) «ESU (NT) «R3A (NT) *QNLT/R3R 
Q2=SQRT ( UTL (NT, N, J) **2+ OTT (NT, N,J) ** 2) *HNU (NT) *RNA (NT) »QHLT/H3E 
C3=Q3+Q1 

QU=QU»Q2 

R 1= VTSI (NT, N, J) * ENU (NT) *RN A (3T) *QNIT/PNP. 

R2= VT5 (NT, N, J) * ENU (NT) *ENA (NT) *CNLT/SNP. 

S1=HTSI (NT, H, J) * 5N U (NT) * E N A (NT) ‘S3IT/2NE 

S2= HTS (NT, N, J) «EN0 (NT) *HN A (NT) *SNLT/ENE 

R3=R3+R1 

P«=R4+B2 

S3=S3+S1 

SO=SH+S2 

9 0 BEITE (6, 10)I,P,Q,S ,DELANG , E3A ( NT) , ENU ( NT) ,H 1 ,P 1 , Q1 , 02, E 1 , E 2, S 1 , S 2 
REITZ (6, 11) ENE,N3,P3,Q3,Q4,R3,B4,S3,S4 
100 CONTINUE 
110 CONTINUE 
RETURN 
END 


PT20280 
PT20320 
PT20330 
PT203U 0 
PT20350 
PT20380 


PT204 90 
PT20500 


PT20660 

PT20670 

PT20680 

PT20690 


SUBEOUTIHE PEI NTU ( NSP, CHI, ENU, I , TEP, FDN, STN, DB, NS, TNP, 17, 
1T7,2V,KS,NB.IC,YC,ZC) 

IN7EGEB*2 NB , NS 

DIHENSION FDN { 1) , ENU (1 ) , CHI (1 ) , »TN ( 1) , TNP (1,1) , TEP (1,1) 

DINE NS ION DB (I, 1) , NB (1, 1) , XT (1,1) , TV (1,1) ,2V (1,1) ,DBT(3) ,NS (I, 1) 
DIHENSION IC (1) ,TC (1) ,2C (1) 

COHHON /SECND/Btf , 3H,BNP,RNN,R3F 
COHNON /FOBTH/NBX, RH,XB 
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ORIGINAL PAGE IS 

OF POOR OUALfTY 

PRINCETON URITERSITT TIRE-SHARING SISTER 


THE PURPOSE OF THIS SOBROUTINE IS TO PRINT OUT THE INSTANTANEOUS 
FLOS-FIELD PROPERTIES. INSTANTANEOUS 


PORHATS 


Uomif/ZU^SC*'),' IRSTANTANEOUS FLOS FIELD INFOR RATION «,45{'* 

2 ,»T^^ (/2X,,H0B120KrAL ™3BER = ',I3,3X,' VERTICAL K0HBEB=' ,1 3, 3X, 'HO 
1RIZONTAL POSITIOB=',F6.5,3X, • RADIAL POSITION =' , F8. 5/2X, • BOX# 
2ANGLE SkiP DENSITY HACH NO X VEL. I VEL. Z VEL. T (KIN) T (BO 
3T) TESP. *,14X,'ROLE FRACTIONS') ' 1 1 

3^FORSAT (//IX, 46 (•*•), • ACCD HULATED FLOS FIELD IRFORBATION •,46( 1 *') 

« FOBHAT(U,I4,E11.3,I6,8Fe.3,3X,3E11.3) 


PT50060 
PT 50070 
PT50080 
PT50090 
PT50100 
PT50110 
PT50120 
PT 50 1 3 0 
PT50140 
PT50150 
PT50160 
PT50170 


***************************************************** 


PT50220 

************** ****p^50 230 


IF(KS. EQ.0) SRITE (6,1) 
IF(KS.FE.O) SRITE (6, 3) 
DO 4 0 RT* 1,3 
40 DBT (ST) =0. 0 


PT50240 

PT50250 


FDA=0. 


CHT=0. 

DO 50 HT«1,RSP 
CHT=CRT*CHI (HT) *RNU (RT) 

50 FDA=FDA+FDN (ST) *STR (RT) 

ICT= 0. 0 
XCT=0. 0 

DO 110 N=1 , KBX 

IF ( (XC (N ) . EQ. ICT) . AND. (TC(N) .EQ. TCT) ) GO TO- 52 
XC?=XC (N) 

T CT= 7 C (N) 

XXT-XCT/XR 
TYT=ICT/RR 
IXC=XCT/BS ♦ 1 
ITC=TCT/3H ♦ 1 
SRITE (6,2) I XC, ITC, X XT, TIT 
52 ZCT=ZC(N) 

NSARP=0 


PT50290 


DBA=0. 

xva*o. 


ITReO. 

ZVR*0. 

THPfl=0. 

TRPR*0. 

E=0. 

F*0. 

DO 100 HT*1,HSP . 
HSAHP=NSARP*NS (RT, H) 
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XVa=XYB+XY (ST,N) *RN0 (AT) *NTK [AT) *NB (HT,N) 

TVB* YYB+ TV (BT,N) *RN0 (BT) *VTB (BT) *NE (BT,N) 

Z7B=ZVH«-ZV {BT, S) *RN0 (BT) *«TB (BT) *NB (BT,N) 

EBA = D3A*DB (BT,N) *BTH (BT) 

THPB=TB?B + VTH ( ST) *RS0 (BT) *T3P (BT,5) *BB (BT, N) 

TRPH=TR?B+RN0 (ST) *NB (BT, N) *TPP (BT, N) 

B=E«-VTB (ST) *RN0 (.BT)*S3 (BT, N) 

100 F=P+RND (BT) *KB (BT, N) 

DBA=DB A/PDA 

IF (E.EQ.0.0) GO TO 55 

XYB=I7B/E 

TVB=IVB/E 

ZVB*ZYH/E 

VS*XVB**2* YYH**2*Z VE**2 
THPB=TflPB/E-VS 
TBPM=TRPB/F 
55 CONTINUE 

TTB= (TBPB + TEPB) / (2.5*CHT) 

TBPB«TBPS/1. 5 

XF(CHT.RE.-1.) TRPH=TR?B/(1.*CHT) 

ABS=S3BT (VS) 

IF (TTB.GT. 0.) AHS=S0RT((5.+2.*CHT) *VS/ (TTH* (3. S*CHT) )) 

CCZ=COS(ZCT/57. 29573) 

SCZ*SQRT (1.-CCZ**2) 

rvb=zvb*scz-tvb*ccz 

TVB*7VS*SCZ+ZVS«CCZ ' 

DO 60 BT= 1 , BSP 

DST (BT) = EK0 (ST) *N5 (BT, S) 

IF (F . N E. 0. ) DBT (BT) -DBT (BT) /? 

60 CONTINUE 

NRITE (6, 4) N,ZCT,BSABP,DBA, ASS, IVB, STB, TVS, TBPS, TRPH,TTS, (D3T(J) , 

1 J- 1,3) 

110 CONTIRU2 PT50470 

RETURN PT50U30 

END PT50490 


:ktrt 


■C0N7P.L N ABE* ' INTE' , ’ R N AL* , TITLE* • PAR • , • ABOL • , ' A AT* , • 95K*,'H H* ,*OK. ', 
DEBUG*. P. ,. F. ,.T.',NEY*. F. , S A 72= . T. , ICOP 1 = 0 , REDO*. T. SEND 
TIBBS ETS* .005,ITS=6,ITP=6,TST=2,TLIN=12 S BSD 

FLOREF LLB*200 0,BKB*5000,BKB=150, 5 SP= 1 , 5ET=0 , 0=743 5. 9, ANGLE® 28. , RNU=1. ,2*0. , 
RBA=28, 94,0., 0.,TF=1 95.51, D2SP=2.52E+ 19 6 BSD 
EOLEC TRP=1000,DIR=3.5E-19,ETA=. 1 04, PBI=0. 0, CHI=-1 . , ACB=. 001 6 BSD 
• SHAPES 30DY=0.0, 1000. ,.00235 S END 
•SHAPES BODY*. 0025, 555. ,0.0 ,2*1. 0 SEND 
SHAPES 30DT=. 0050, 345. ,0. 0,2*1. 0 SEND 

•Shapes body=.o ioo, 300 . , 0 . 0 , 2 * 1.0 send 

SHAPES BODY*. 0200, 300. ,0.0, 2*1.0 SEND 
SHAPES BOOT*. 0300, 300. ,0.0, 2*1.0 SEND 
SHAPES BOOT*. 0400, 300. ,0.0, 2*1.0 SEHD 
SHAPES BODY*. 0500, 300. ,0.0, 2*1.0 SEND 
SHAPES BODY*. 0600, 300. ,0.0, 2*1.0 SEND 
SHAPES BODY*. 0700, 300. ,0.0, 2*1.0 SEND 
SHAPES BODY*. 0800, 300. ,0.0, 2*1.0 SEND 
SHAPES BODY*. 0870, 300. ,1.0, 2*1.0 SEND 
•GEOH BWEDG=2, NS*20,NH*3, SEND 
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JINCOPL PLOXIN=2. 1429, FCOL= 1. 0 , RHP=0. 3,07=22, KHX=3 BEND 

i X NOUT V A RG=0 2. # 13® * Itt# , 15* #16® 1 17# , 76# , 

19.. 20..21.,CDBV=0.0,. 070, . 170,. 2B2, . 369, . 459,. 537, . 599, .656, . 71 0, .750, .785, 
.8 15,. 845,. 872,. 900, .922,. 951,. 975,. 988,. 996, 1.00, BEND 

JIHOUT VABG=-20. ,-19. ,-17. ,-15. ,-13. ,-11., -9., -7., -5. ,-3. ,-1.,1.,3.,5.,7.,9., 

11., 13., 15., 17., 19.,CtJFV=4*0.,.003,.013,.0 36,.084,.149,. 250, .4 06 ,. 6 11, .762, 
.871,. 932,. 962,. 984,. 995,. 999, 3*1.0, BEND 
>INOOT VARG=-20.,-19 .,- 17.,-15.,-13.,-11.,-9.,-7.,-5.,-3.,-1.,1.,3.,5.,7.,9., 

11.. 13.. 15.. 17. . 19. ,COBV=4*0. 0,. 003, .013, .036, .084,. 14 9, .250,. 406, .6 1 1, . 76 2, 
.871, .932,. 962, .984,. 995,. 999, 3* 1.0, BEND 
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